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General Information 

The Hitachi 6309: 

A POWERFUL ALTERNATIVE 




Most CoCo 3 owners wish there were some 
way they could alter their machines to 
make them run faster; while owners of PC 
compatibles have for years been buying 
faster and faster computers, the speed at which the CoCo exe- 
cutes programs has remained the same since the CoCo 3 was 
introduced. 

Some OS-9 users and hardware hackers 
have been so desperate to squeeze addi- 
tional performance out of the Color Com- 
puter that they've tried various bizarre and 
chancy hard- 

■ 



Product Review 



POWERBOOST: 



UP TH 




□ 6809 Registers 

□ Added 6309 Registers 



Chris Burke learned of the hidden regis- 
ters, instructions and modes of the Hitachi 
6309 roughly a month before the Chicago 
1992 CoCofesL and it immediately occurred 
to him that he could use these enhance- 
ments to make OS-9 software (system and 
applications) execute more quickly. In one 
month, Chris devised over 50 separate 
patches to modules in the OS-9 system. 
These patches have become an important 
part of a new product Burke & Burke calls 
PowerBoost. 

The PowerBoost package includes a 
Hitachi 63B09E, a 40-pin socket and a 
specially formatted disk including the 
patches to OS-9, as well as some patches to 
Disk basic. The idea is that you replace the 
68B09E in your CoCo 3 with the socket and 
6309. then patch the software to take ad- 
vantage of the new features, in- 
creasing the speed at which the 
CoCo 3 performs. 

The patches Chris had 

devised prior to the Chicago show 

produced a noticeable and impressive speed 

increase in a CoCo 3 running OS-9 Level II. 

How impressive is impressive? A given 



mdi r e took 8.75 seconds without the 
patches installed and 5.5 seconds with the 
patches — a 40-percent speed increase. In 
another test in which the CoCo 3 was asked 
to read a full megabyte of data from a hard 
drive it took 55.5 seconds without the 
patches and 39.5 seconds wifh'thc patches 
— again a throughput increase of about 40 
percent. In a more dramatic (but less truly 
meaningful) demonstration, performing a 
cobbler to a RAM disk took 20 seconds 
without the patches and only 1 .8 seconds 
with patches. What this would translate to 
for "cobblering" a floppy disk is dependent 
upon Ihe efficiency of the data transfer from 
the system to the drive. It is important to 
note, too, that these figures represent per- 
formance increases while in the emulation 
mode of the 6309, not the native mode in 
which fewer instruction cycles are required. 
The OS-9 patcher program Chris sup- 
plies is an exceptionally professional item. 
As it installs itself, it goes one by one 
through the modules, shows the user which 
modules it recognizes as patchable, and 

See PowerBoost on Page 16 



more a curious intellectual exercise than 
any kind of practical route to speeding up 
the CoCo 3. 

Now, however, a sound and reliable 
means exists for speeding up program exe- 
cution on the CoCo 3, at least under OS-9 
Level II. by 10 to 30 percent (possibly up to 
50 percent in the near future). This means is 
the Hitachi 6309 microprocessor, which is 
available through electronics parts houses 
and as part of a complete kit, called Power- 
Boost, sold by Burke & Burke (see the 
review, at right). The potential importance 



of the 6309 microprocessor to Color Com- 
puter users has come to light, thanks to the 
recent unofficial release of information 
about the chip. 

The 6809 and the 6309: 

A History of the Technology 

As most CoCo users know, the micro- 
processor used in the Color Computer 3 is 
the Motorola 68B09E. The 6809 family of 
microprocessors was engineered using 

See 6309 on Page 15 
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A Promising Education 



It is common knowledge that computers, CoCos included, are 
widely used in the field of education. But those of us without 
children, or whose children have finished their educations, often 
lose sight of just how important and effective the use of computers 
can be when combined with traditional educational methods. And 
there are several approaches that can be taken to enhance the 
educational process through the use of computers. 

The most common strategy used today is the drill program, a 
program with which students are quizzed by the computer. Work- 
ing much like flash cards, such programs are useful for teaching 
everything from simple math and spelling to anatomy and chem- 
istry. 

Another tactic is to first teach the given subject through tradi- 
tional methods. Then after the students have a basic understanding 
of the subject, the computer is used to present concrete examples 
(proof) of the material learned. This approach is used by Louis 
Toscano in "The Electronic Blackboard" (THE RAINBOW, Septem- 
ber 1987, Page 106). As he explains in that article, Mr. Toscano 
first introduces the concepts of calculus, then uses the CoCo to 
show the students how the graphs and equations relate in physical 
terms. 

A third approach is to teach the material in a traditional manner, 
then let the students actually use what they have learned in a 
physical way. While it seems this method is used less frequently 
than the other two I've mentioned, it can be highly effective since 
the students arc given some way to mentally base the material — 
they are given a tangible use for the material, reinforcing their 
learning efforts. This approach has been used by Bob Teague, a 
rainbow reader. We recently received the following letter from 
Mr. Teague and his algebra class: 

Dear Sir: 

I teach mathematics and science at Winthrop High School in 



W in throp, Maine, where there are eight CoCos in the computer lab 
in my classroom. We receive THE RAINBOW and RAINBOW ON DISK 
each month, and many of the programs you have provided are 
integrated into my math and science courses. The CoCos are in 
constant use by my students. 

During our study of solving equations in one unknown, 1 de- 
cided to challenge some of the students in my Algebra I course by 
having them create a program to solve equations in several forms. 
Once they understood how to solve the equations by hand, the 
students set about teaching the computer to solve the equations 
electronically through BASIC. 

The work went slowly at first, but once the students got into the 
project, it proceeded quickly. Since many of the students had little 
programming experience, I helped with some of the mechanics of 
building a menu-driven program. The result is Equation Solver, 
which the class and I hope will inspire other algebra students to try 
their hands at programming. BASIC is alive and well in Mr. 
Teague' s Period I algebra class. 

Keep those great programs coming. We lookforward to explor- 
ing the disk each month. 

Sincerely yours, 



Mr. Bob Teague and students: 

Jaime Clark 
Dana Fales 
Levi Huntley 

Crystal Pendexter 
Barbie Williams 

Frank Fitzgerald 
Amy Phillips 
Amy Bryant 
Jess Shepard 



Darcy Dunn 

Ethan Foyt 

Marty Matthews 

Lynn Scribner 

Eric Weber 

Veronica Guimont 

Mike Murphy 

Ethan Savage 



Enclosed with the letter was a disk containing the result of Mr. 
Teague's class's efforts, which I am printing here for your use and 
educational benefit. 

I think the students in Mr. Teague's class deserve, at the very 
least, a big pat on the back, as does Mr. Teague. Their creation, after 
all, is the very meaning of education. 

— Lonnie Falk 



16K ECB 
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The Listing: EQUATION 

1 "EQUATION SOLVER 

2 ' 

3 'COPYRIGHT (C) 1992 

4 'BY FALSOFT, INC. 

5 'RAINBOW MAGAZINE 

10 REM EQUATION SOLVING PROGRAM 
20 REM BY PERIOD 1 ALGEBRA CLASS 

AND MR. BOB TEAGUE 
30 CLS 

40 PRINT"EQUASOLV EQUATI 

ON SOLVER" 

50 PRINT" MENU" 

60 PRINT 

70 PRINT" CHOOSE F0RM:":PRIN 

T 

80 PRINT" (1) X+B-C" 

90 PRINT" (2) AX-C" 

100 PRINT" (3) AX+B-C" 

110 PRINT" (4) X/A-C" 

120 PRINT" (5) AX/B-C" 

130 PRINT" (6) EXIT PROGRAM 

140 PRINT 

150 PRINT" ENTER CHOICE (1-6 

)" 

160 INPUT C 

170 IF C<1 OR C>6 THEN 150 

180 ON C G0SUB 200.300.400,510.6 

10,720 

190 RUN 

200 REM X+B-C TYPE SOLUTION 

210 CLS:PRINT:PRINT"X+B-C SOLUTI 

ON" 

220 PRINT 

230 INPUT"ENTER B";B 

240 INPUT"ENTER C":C 

250 LET X-C-B 

260 PRINT:PRINT"X +";B;"-" :C: PRI 

NT 

270 PRINT"VALUE OF X IS ";X 

280 PRINT:PRINT"ENTER TO CONTINU 

E" 

290 INPUT C$:IF C$-"" THEN RETUR 

N 

300 REM AX-C TYPE SOLUTION 

310 CLS:PRINT:PRINT"AX-C SOLUTIO 

N" 

320 PRINT 



330 

340 

350 

360 

370 

380 

E" 

390 

N 

400 

410 

ION 

420 

430 

440 

450 

460 

470 

PRI 

480 

490 

E" 

500 

N 

510 

520 

ON" 

530 



INPUT"ENTER A";A 

INPUT"ENTER C":C 

LET X-C/A 

PRINTtPRINT A:"X -":C:PRINT 

PRINT-VALUE OF X IS ":X 

PRINT:PRINT"ENTER TO CONTINU 

INPUT C$: IF C$-"" THEN RETUR 

REM AX+B-C TYPE SOLUTION 
CLS:PRINT:PRINT"AX+B-C S0LUT 

PRINT 

INPUT"ENTER A" 

INPUT"ENTER B" 

INPUT-ENTER C" 
LET X-(C-B)/A 

PRINT:PRINT A;"X +";B;"-";C: 
NT 

PRINT-VALUE OF X IS ";X 



PRINT:PRINT"ENTER TO CONTINU 



INPUT C$: IF C$-"" THEN RETUR 



REM X/A-C TYPE SOLUTION 
CLS:PRINT:PRINT"X/A-C SOLUTI 



540 

550 

560 

570 

NT 

580 

590 

E" 

600 

N 

610 

620 

ION 

630 

640 

650 

660 

670 

680 

PRI 

690 

700 

E" 

710 

N 

720 



INPUT-ENTER A": A 

INPUT-ENTER C":C 

LET X-A*C 

PRINT:PRINT"X /" ; A; "-" : C : PRI 

PRINT"VALUE OF X IS ";X 
PRINT:PRINT"ENTER TO CONTINU 

INPUT C$:IF C$-"" THEN RETUR 

REM AX/B-C TYPE SOLUTION 
CLS:PRINT:PRINT"AX/B-C SOLUT 

PRINT 

INPUT-ENTER A";A 
INPUT-ENTER B":B 
INPUT-ENTER C";C 
LET X=(B*C)/A 

PRINT:PRINT A;"X /";B;"-";C: 
NT 
PRINT-VALUE OF X IS ";X 
PRINT:PRINT"ENTER TO CONTINU 

INPUT CJ: IF C$-"" THEN RETUR 

CLS: END 




Letters to the 
RAINBOW 



Back on Track 

Editor: 

I just started my subscription to THE 
rainbow and am thrilled to see a magazine 
devoted to the Color Computer. After hav- 
ing my PC stolen, I wasn't ready to invest a 
major amount of money into another, then 
buy all the software again. So I took my 
CoCo 3 out of mothballs, plugged in several 
programs and rediscovered the CoCo magic. 



Now, I'm investing in most of your ad- 
vertisers to upgrade my computer to its full 
potential. A friend came over and watched 
me put the CoCo through some of its paces. 
He was impressed with its performance 
and color graphics (and he owns a 386- 
based PC). 

I had almost forgotten the fun of writing 
my own programs — the sense of accom- 
plishment and satisfaction from designing 
and debugging. I hope in the not-too-dis- 
tant-future to submit short "fun" programs 
for RAINBOW readers. Until that time, your 
publication helps me in my search for all 
the tools and accessories available for my 
CoCo 3. Thank you for a fine monthly 
publication and a double kudos to your 
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readers and advertisers for keeping the CoCo 
alive. 

CJ. Ryan 

ST 3, USCGC Gallatin 

Governors Island 

New York, NY 10004 

Needs a CoCo 3 Replacement 

Editor: 

We have four different types of comput- 
ers in our household (Apple, Atari, TI and 
CoCo), and the CoCo is my favorite. Now 
my CoCo 3 is on the fritz, and I want 
another one. If one of your readers has a 
CoCo 3 he wouldn't mind parting with, I'd 
really appreciate hearing from him. 

Jason Sikes 
6209 NE 96th Avenue 
Vancouver, WA 98662 

Thanks for Scratching Our Backs 

Editor: 

Having worked in retail bookstore op- 
erations and purchasing for a number of 
years, I know the costs and problems in- 
volved in dealing with dealers and whole- 
salers, all in the name of "distribution." I 
have watched each month the shrinking 
size of THE RAINBOW, the format changes, 
the shrinking size of the advertising base, 
the letters and readers becoming more criti- 
cal (and no doubt, loss of subscriptions), 
and the smaller size of articles and pro- 
grams. The general public does not realize 
what it takes to get a publication in print or 
the money and time involved in getting it to 
the reader. 

We are a dying breed out here, and you 
are our only stable contact. With everyone 
so quick to bail out on us, you seem to be 
trying to do anything and everything pos- 
sible to continue your support to us. People 
are always very quick to criticize when they 
do not like something, but are not always so 
quick to help. These people need to be 
encouraged to support you more with sug- 
gestions, submissions and involvement with 
the only lifeline for their CoCos. They need 
to support the advertisers more, or they too 
will be gone — and subscriptions alone do 
not pay the bills. This is a readers' publica- 
tion, and only by their input will it continue 
to be so. 

After years of newsstand purchasing, I 
have finally subscribed. I also purchased a 
number of back issues — within two weeks 
they were here. I was one issue short, and 
with a quick call to your 800 number I was 
assured it would be on its way without 
delay. Please compliment your staff on the 
service they provided. 

For what it is worth, you have my sup- 
port and dollars as long as you need them. 
With my subscription, you pledged to sup- 
port me with your magazine. Tn turn, my 
pledge is to try to be a better and more 
supporting reader in whatever way I can. 
Peggy Johnson 
490 Benjamin Moreau 
Le Gardeur, Quebec J5Z 4L4 
Canada 

In Defense of the 68000 

Editor: 

I have never had any complaints with 
THE RAINBOW, but after reading "Print #-2" 
in the May 1992 issue, I want to give my 
opinion about the new OSK/68000-based 
computers. 

I am very pleased with the service my 
CoCo has given me over the last three 
years, and I will keep it as long as it displays 
the Disk Extended BASIC message when I 
turn it on. But if I ever need to have more 
power, I would really like to use one of the 
new 68000-based computers. I have used 
MS-DOS, and I think OS-9 is more power- 



ful. Besides, I am already familiar with OS- 
9 because I have used it on my CoCo. 

In his May column, Lonnie said the main 
reason the new computers will not serve us 
well in the future is because of the lack of 
software. From what I have read in THE 
RAINBOW, the CoCo was in a similar posi- 
tion when it was introduced 1 2 years ago. 
There were only a few ROM Paks from 
Radio Shack and nothing more. It was the 
support and dedication of the CoCo Com- 
munity that made the CoCo the great ma- 
chine it is today. 

If we give this same support and dedica- 
tion to the companies and programmers 
developing software for the new machines, 
we will make the new computers as good as 
the CoCo, with the same variety in software 
and hardware. And the CoCo Community 
will continue to exist for many years to 
come, with THE RAINBOW right there with 
us. Thank you for letting me express my 
opinion. 

Luis Tanon Garcia 

P.O. Box 475 

Naranjito, PR 00719 

Adventurer Needs Help 

Editor: 

Help! How do I get that stupid parrot to 
eat the birdseed on the string in the game 
Caladuril, Flame of Light? Anyone who 
can help, please write to me. 

Johnnie Hirst 

P.O. Box 2092 

Beeville, TX 78104 

Do Unto Others . . . 

Editor: 

At first I didn't care for the new format 
of THE RAINBOW, and I seriously thought 
about not resubscribing. But after having 
the chance to get used to the new format, I 
like it. As other readers have pointed out, it 
is easier to read without the glare from the 
glossy pages. The ads are larger, and I find 
it much easier to handle while I read it. 

Other people have valid points too, re- 
garding the bulkiness and the awkwardness 
of storing THE RAINBOW. But people must 
realize that with time comes changes, and 
we must adapt to those changes. 

Sometimes I get tired of reading letters 
in which people "cry" because of the new 
format or the reduced size. I wish these 
people would ask themselves, "What have 
I done to support THE RAINBOW recently? 
Have I submitted an article? Do I support 
the advertisers?" 

Come on, people, get with it. If we lose 
our RAINBOW, we have nothing. Do your 
part. Support any way you can. All we need 
to do is stick together to keep the CoCo 
Community together. As John F. Kennedy 
might have said, "Ask not what your RAIN- 
BOW can do for you, ask what you can do for 
your RAINBOW." 

Timothy Neihouse 

P.O. Box 122 

Beatty, NV 89003 

Moving to a Hard Drive 

Editor: 

I have spent countless hours trying to 
install a variety of games and utilities on my 
CoCo 3's 10-Meg hard drive. Most have 
worked with only a few modifications, but 
some are just too stubborn. Can someone 
help me out? The problem programs are 
Suh Battle Simulator (Epyx), Laser Sur- 
geon (Activision), Flight Simulator II 
(subLogic), Donald Duck's Playground and 
Winnie the Pooh in the Hundred Acre Wood 
(Sierra On-Line), and finally Multi-Vue (I 
can't even get it to recognize the hard drive 
as a floppy-based program). 

With all the time I've spent on this, I also 



discovered something of interest: Interbank 
Incident and Mickey's Space Adventure will 
work on a hard drive under OS-9 Level II if 
you use a Level I boot disk. It is really handy 
not to have to flip through all those disks! 
Finally, why do some of my games that 
use artif acted colors display the color green 
instead of red (when I press Fl -Reset)? Is a 
chip frying out on me? This began happen- 
ing only a month or so ago. My system 
includes a 512K CoCo 3, an MPI (not 
upgraded), a Magnavox 8CM-515, two 
DSDD 514-inch drives and a 10-Meg hard 
drive. 

Jeffrey Hess 

1305 Lawe Street-Lower 

Green Bay, Wl 54301 

We're not quite sure where the. problem 
is, but our first suggestion is that you play 
with the Color and Hue controls on the 
Magnavox monitor. It is very easy to get 
some "unusual" color combinations if these 
controls are little out of adjustment. 

Looking for Continued Support 

Editor: 

Last December I received a CoCo 3. I 
was so pleased with its performance that I 
upgraded it to 5 12K. My shock came when 
I learned that this excellent machine has 
been discontinued by Tandy. 

I need your help in finding materials 
(software, hardware, etc.) that will work 
with this system. I have been looking 
through my copies of the rainbow and 
tried to contact the various merchants I 
dealt with for my CoCo 1 . The majority of 
my letters are either returned or I am receiv- 
ing responses that the companies are out of 
business. Would you please let me know 
who I can contact that is still offering serv- 
ices for this system. 

John Maes 

1 789 Terrace Heights Lane 

Reno, NV 89523 

As you have found, many past advertis- 
ers and vendors of CoCo products are no 
longer in business. This unfortunate situ- 
ation is what makes communication through 
such sources as THERAINBOW and Delphi so 
important — there are many others out here 
who might be able to help. You should be 
able to contact any current advertiser, and 
users on Delphi may be able to point you in 
the direction of vendors who don't adver- 
tise in THE RAINBOW. 

Stop the Presses 

Editor: 

Thank you for the information, programs 
and general assistance your magazine has 
provided me over the last 10 years. Al- 
though I'm not loo crazy about your recent 
change to the tabloid format, THE RAINBOW 
is still very useful. 

Since first getting into OS-9 about two 
years ago, I have been trying to figure out 
how to send printer codes to my DMP-107 
from within OS-9. 1 recently discovered a 
simple command, di spl ay, that solves this 
problem. I'm sure experienced OS-9 users 
are already aware of this, but those who are 
still experimenting may find it useful. 

To use display, enter the command 
followed by the various codes you want to 
send to the printer (to change fonts, styles, 
etc.), then redirect the output to the printer. 
The printer codes you want to send must be 
entered in hexadecimal format. For ex- 
ample, the following command changes the 
DMP-107 to elongated print: 

display lb e >/p 

where 1 b is Hex for 27 and e is Hex for 14. 



The > / p string tells OS-9 to send the output 
of this command to the printer. 

I hope this information is useful to those 

readers who are still learning how much 

power they have with OS-9 on their CoCo. 

Eugene Wilkinson, Jr. 

230 Northway Park Road, Apt. #7 

Machesney Park, IL 61111 

Dynacalc sans Linefeed 

Editor: 

Thanks for providing the patch to Dy- 
nacalc for eliminating the extra linefeed 
(May 1992, Page 2). Is there also a patch 
that would allow me to use the High Reso- 
lution Joystick Interface from Tandy? 

John French 

1619 Court Street 

Redding, CA 96001 



THE RAINBOW welcomes letters to the 
editor. Mail should be addressed to: Let- 
ters to Rainbow, The Falsoft Building, 
9509 U.S. Hwy 42, P.O. Box 385, Pros- 
pect, KY 40059. Letters should include 
the writer'sfull name and address. Letters 
may be edited for clarity or to conserve 
space.; '•-: •/"; . . 

Letters to the editor may also be sent to 
us through our Delphi CoCo SIG. From 
the CoCo SIG> prompt, enter RA I to get to 
the Rainbow Magazine Services area of 
the SIG. At the RAINBOW> prompt, 
enter LET to Teach the LETTERS> prompt, 
then select Letters for Publication. Be 
sure to include your complete name and 
address. 




When writing educational software, it is 
important that your creations be as "goof- 
proof as possible. There are several pokes 
that, when used on a CoCo 3 (or a 64K 
CoCo in the all-RAM mode), can help with 
this. To disable the CLEAR key, especially 
when a program is asking for user input, use 
POKE 41893.0. To restore CLEAR-key 
operation to normal, use POKE 41893.129. 
Similarly,; to keep SHIFT-Backspacc 
(SHJFT-left arrow) from erasing the entire 
current input line, use POKE 41909.0. To 
restore this, use POKE 41909,21. 

Again, these pokes require that the CoCo 
on which they are used be in the ail-RAM 
mode. Since the CoCo 3 is always in the all- 
RAM mode, this isn't a big problem for 
those users. Owners of 64K CoCo 1 and 
CoCo 2 machines can use the following 
short program to put their computers in the 
all-RAM mode prior to issuing the above 
pokest - 

10 'ROMRAM 

20 CLEAR 999 

30 DATA 26.80.190.128.0.183.255. 

222. 166. 128 

40 DATA 183.255,223.167,31,140.2 

24.0,37,241.57 

50 FOR I-1T021:READA$:A$-At+CHR$ 

(A>:NEXT I 

60 P-VARPTRCA$)+1 

70 POKE P. 126 

80 EXEC P 

90 PRINr'BASIC IS NOW IN RAM" 
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To Hex With Decimal 



While working with the Color Com- 
puter, I often need to convert num- 
bers from the decimal (base 10) numbering 
system to hexadecimal (base 16). In the 
direct mode under Disk BASIC, this is easy 
to do using PRINT HEX$(xvj:). However, 
while a program is running, converting 
numbers isn't so simple a task. And now 
that I also use OS-9, it is even more of a 
bother. I wrote Hex Chart to end the frustra- 
tion. 

Hex Chart is a short BASIC program that 
prints a handy decimal/Hex conversion chart 
on paper. Though you may still need a 
pencil and paper for some simple math, the 
printed chart facilitates conversions. Hex 
Chart requires 16K and Extended BASIC, 
and the program is designed to work with 
any standard printer. If you have a CoCo 3 
and want Hex Chart to print to the screen 
instead, change all P R 1 N I # - 2 , statements 
to PRINT and set the screen width to 80 
columns. [Editor's Note: While you can 
change Hex Chart to print to the screen, a 
more efficient approach would be to run a 
stand-alone conversion program such as 
presented in "Base Conversions" (July 
1992, Page 4) by George Quellhorst.] 

Now let's look at how to use the printed 
chart (see Figure 1 ) to convert numbers. As 
an example, we'll convert the decimal 
number 46,253 to hexadecimal. First, find 
on the chart the highest number that is equal 
to or less than the original number. In our 



example, the number on the chart would be 
45,056, which appears in Column 4 and has 
the Hex digit $B to its left. Now subtract the 
decimal number on the chart from the origi- 
nal number. In this case, the difference is 
46,253 - 45,056, or 1 197. Again refer to the 
chart, this time looking for the highest 
number that is equal to or less than this 
difference. The decimal value 1024 in 
Column 3 fits this, and the Hex digit to its 
left is $4. 

Again subtracting the chart number from 
the number we are converting ( 1 197 - 1024), 
wc find a difference of 173. Going to the 
chart, we find the highest number equal or 
less than 1 73 is 1 60 in Column 2, giving us 
a Hex digit of $ A. The final difference, 1 73- 
160, is 13. This number is in Column 1 and 
correlates to the Hex digit $D. So the deci- 
mal number 46,254 is the same as $B4AD. 

Note that the columns from which we 
take our hexadecimal digits directly repre- 
sents the position of the digit in the con- 
verted number. When converting a number 
that exactly matches one in Column 2, 3, 4 
or 5 on the chart, don't forget to add the 
significant zeroes. For example, in convert- 
ing 32,768 from decimal to Hex, you '11 find 
this number in Column 4 with a Hex digit of 
S8. After subtraction, we are left with zero. 
So you need to put three zeroes (for col- 
umns 3, 2 and 1 ) after the $8, giving a final 
converted value of $8000. 

The chart printed by Hex Chart is also 



very useful for converting numbers from 
hexadecimal to decimal. Simply reverse 
the process. For example, starting with 
$12C, you would look up the decimal 
equivalents in the appropriate columns for 
each of the Hex digits. These numbers, in 
the correct position, are 256, 32 and 12. 
Now add the numbers together to get the 
final result, decimal 300. 



Steve Ricketts is a mainframe computer 
operator for a firm in the Portland area. 
Steve's greatest CoCo interests are graph- 
ics and telecommunications , and he is now 
beginning to delve into the world of OS-9. 
He and his wife Debbie are the proud par- 
ents of three daughters. He can be con- 
tacted at P.O. Box 1048, Fairview, OR 
97024. Please include an SASE when re- 
questing a reply. 























! De 


cimal to Hex Conversion He 


p Chart 






! ! 











C 











! 


! 1 65536 ! 


1 


4096 


1 


256 


1 


16 


1 


1 ! 


! 2 131072 ! 


2 


8192 


2 


512 


2 


32 


2 


2 ! 


! 3 196608 ! 


3 


12288 


3 


768 


3 


48 


3 


3 ! 


! 4 262144 ! 


4 


16384 


4 


1024 


4 


64 


4 


4 ! 


! 5 327680 ! 


5 


20480 


5 


1280 


5 


80 


5 


5 ! 


! 6 393216 ! 


6 


24576 


6 


1536 


6 


96 


6 


6 ! 


! 7 458752 ! 


7 


28672 


7 


1792 


7 


112 


7 


7 ! 


! 8 524288 ! 


8 


32768 


8 


2048 


8 


128 


8 


8 ! 


! 9 589824 ! 


9 


36864 


9 


2304 


9 


144 


9 


9 ! 


! A 655360 ! 


A 


40960 


A 


2560 


A 


160 


A 


10 ! 


! B 720896 ! 


B 


45056 


B 


2816 


B 


176 
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Figure 1: Printed Conversion Chart 



The Listing: HEXCHART 

1 "DECIMAL/HEX HELP CHART 

2 "BY STEVE RICKETTS 

3 "COPYRIGHT (C) 1992 

4 'BY FALS0FT, INC. 

5 'RAINBOW MAGAZINE 

100 PRINT#-2," ";STRING$(b4, "-••) 
110 PRINT*- 2. "! Decimal 

to Hex Conversion Help Chart 
! " 
120 PRiNT#-2."!":STRING$(54,"-") 
: " ! " : Hl-65536 :H2=4096 : H3=256 : H4- 
16:H5-1 

140 PRINT#-2,"!";STRING$(54.""-") 
; " ! " 

150 PRINT//-2."!"; 
160 FOR L-0 TO 15 
170 FOR C-l TO 5 
180 PRINT#-2," ":HEX$(U; 
190 IF C-l THFN P0=I*H1 FLSE IF 
C=2 THEN PD=L*H2 ELSE IF C-3 THE 
N PD=L*H3 ELSE IFC-4 THEN PD=L*H 
4 ELSE IFC-5 THEN P0-L*H5 
200 PS=LEN(STR$(PD))-1 
210 PRINT#-2. STRING$(6-PS." "); 
PD I"!"; 

220 Ir C/5=INI(C/5)THENPRINT#-2, 
"™: IFL-15 AND C=5 THEN 240 ELSEP 
RINT#-2."!": 
230 NEXTC:NEXTL 

240 PRINT#-2."!":STRING$(54."-") 
: " ! " 

250 PRINT#-2,"!(Hex Pos 5)(Hex P 
os 4)(Hex Pos 3)(Hex Pos 2)(Hcx 
Pos 1!" 
260 PRINTtf-2." ";STRING$(54. "-••) 
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Feature Program 




e Letters 



Scramble is a guessing game designed 
for any CoCo with at least 16K and 
Extended BASIC. It is the first game I wrote 
for the CoCo, and despite its simplicity, is 
actually quite enjoyable. 

When you run Scramble, the computer 
picks a string of three letters. The object of 
the game is to guess the sequence the 
computer has picked. Make your guess by 
typing three letters and pressing ENTER. 
The computer then compares your guess to 
the three-letter string it picked and tells you 
how close your guess is. It does this by 
printing a string consisting of X's, @'s and 
*'s. An X indicates the letter you guessed 
for that position is correct and in the right 
position in the computer's scramble. An @ 
means the letters is in the scramble but in 
another position, and an * means it is not in 
the scramble at all. 

As written, you have 20 attempts at 
guessing the computer's scramble. This 
number is set by the statement I F GG-20 in 
Line 140. You can change the number of 
guesses allowed by changing 20 to another 
number. Another modification you might 
try is to have the program reduce the num- 
ber of guesses allowed after each time you 
correctly guess a scramble. Whether or not 
you modify the program, I hope you have 
fun with Scramble. 



Trevor Boehm is a tenth-grade student 
whose greatest passion is challenging 
computers with new programs. He has 
participated in several science fairs and 
lias received numerous awards far his work. 
He can l>e contacted at 77 Inwood Cres., 
Winnipeg, MB R2Y.JA2, Canada. Please 
include an SASE when requesting a reply. 



The Listing: SCRAMBLE 

1 "SCRAMBLE 

2 "BY TREVOR BOEHM 

3 "COPYRIGHT (C) 1992 

4 'BY FA. SOFT. INC. 

5 "RAINBOW MAGAZINE 

10 CLS:PLAY"01L8CDEFG":PRINT" 

SCRAMBIF 
20 PRINT:PRINT""I AM THINKING OF 
SCRAMBLE OF 3" : PRINT"LETTERS . 
YOU HAVE 20 GUESSES TO SOLVE MY 

SCRAMBLE. AFTER EACIIOr YOUR GUE 
SSES I WILL TELL YOU HOW WELL YO 
U DID BY PRINTING A SET OF *"S. 

X'S, & @'S. X'S MEANTHAT A LETT 
tR IS IN THE CORRECT" 
30 PRINT'"P0SITI0N AND @"S MEAN T 
HAT THE LETTER IS IN THE SCRAMB 
LE BUT ISINCORRECTLY POSITIONED. 

A * IS ABLANK" 
40 EXEC44539 
50 W=RND( -TIMER) 
60 F0RWD-1T03:AC-RND(26)+64:WD$( 



WD)=CHR$(AC):NEXT 

70 SC$-WD$(l)+WDt(2)+WD$(3):GG-l 

80 C.S: PRINT"GUESS" ;GG:INPUTGG$: 

GG-GG+1 

90 I=GG$-SC$THENGOTO150 

100 GPJ(1)=LLH$(GG$.1):GP$(2)=M 

ID$(GG$.2.1):GP$(3)=RIGHT$(GG$.l 

) 

110 IFGP$(1)-WD$(1)THENRS$(1)="X 

"ELSEIFGP$(l)=WDt(2)THFNRS$(l )-" 

@"ELSEIFGP$(1)=WD$(3)THENRS$(D- 

"@"E_SERS$(1 )-••*•• 

120 IFGP$(2)=WD$(2)THENRS$(2)-"X 

"ELSEIFGP$(2)=WD$(1)THENRS$(2)-" 

@"ELSEIFGP$(2)=WD$(3)THENRS$(2)= 

"@"ELSERS$(2)="*" 

130 IFGF$(3)-WI)$(3)IHENRS$(3)="X 

"ELSEIFGP$(3)=WD$(1)THENRS$(3)-" 

@"ELSEIFGP$(3)=WD$(2) T HENRS$(3)- 

■•@"ELSERS$(3)="*" 

140 PRINTRS$(1):RS$(2):RS$(3):F0 

RX=1TO1000:NEXT:IFGG-20THENGOTO1 

60ELSEGOTO80 

150 F0RA-1T012:PLAYSTR$(A):NEXT: 

PRINT'TORRECT ! ! !": FORA-1TO100 

0:NEXT:RUN 

160 FORX-0TO2:FORY=12TO1STEP-1:P 

LAYSTR$(Y):NEXT:NEXT:PRINI"YOU"V 

E RAN OUT OF GUESSES ! ! !":F0RX 

=1TO1000:NEXT:RUN 
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OS-9 Learns to Count 



When writing, it is often important to know just how 
long your creation is. Count is an OS-9 version of the UNIX 
wc utility, which counts the number of lines, words and 
characters in text files. 



The syntax for Count is: 

count [-Iwc] [filename] [...] 

To use the program, enter count followed 
by the desired options (if any) and the name 
or pathlist of the file for which you want the 
count. As the ellipsis (...) indicates, you can 
enter several filenames or pathlists to count 
many files in one pass. 

The options available with Count are 
shown in Figure 1 . You can enter them in 
any order, together following a single hy- 
phen (-cw) or separately using spaces (-c 

-w). If no options are specified. Count de- 
faults to all three — as if you entered -lwc. 



- 1 count text lines 

- w count words 

- c count characters 

Figure 1: Count Options 



When Count goes through a text file, a 
line is counted each time the program en- 
counters a carriage return or linefeed char- 
acter in the file. A word is considered to be 
any string of characters that is bracketed by 
spaces, carriage returns, linefeeds or any 
combination of these. The characters 
counted by Count are the printable charac- 
ters only and do not inc lude spaces, carriage 
returns or linefeed characters. 

The counts for each file specified are 
displayed on a single line in the order lines, 
words, characters and filename. For ex- 
ample, if you enter count myf i 1 e, you'll 
see something like 

313 1404 8454 myflle 

appear onscreen. If you use Count with 
multiple files, the combined totals of all the 
files are displayed following the individual 
file counts. Entering 

count -1c chapterl chapter? 

results in the following display: 

313 8454 chapterl 

125 3068 chapter^ 

438 11522 total 

If you don't specify any filenames on the 
command line, the standard-input path is 
used and Count accepts text from a pipeline 
or by input redirection. For example, you 
could enter 

list filel file2 ! count -1 

to count the total number of lines contained 
in f i 1 e 1 and f i 1 e2 together. The output of 
the list command is "piped" through the 
Count utility. 

If you don't have an OS-9-based assem- 
bler, use the BASIC09 program in Listing 2 to 



generate the executable Count program. 
Those using OS-9 Level I also need to 
change all occurrences of /dd to /d0 (or 
another appropriate drive) in the BASIC09 
listing before running it. 



Stephen Goldberg is a dentist and the 
author of the Utilipak series of OS-9 utili- 
ties. He can be contacted at 695 Plainview 
Road, Bethpage, NY 11714. Please include 
an SASE when requesting a reply. 



OS-9 



* 



Listing 1: Count. asm 
******************************************* 

* COUNT - (c) 1987 by STEPHEN B. GOLDBERG 

* 

* Use: count [-lwc] [filename] [...] 

* -1 - count 1 ines 

* -w - count words 

* -c - count characters 

* no options - count all 





if pi 








use 


/dd/defs/ 


os9defs 




endc 








mod 


len.name 


prgrm+objet .reent+2, entry ,dsi z 


pointer 


rmb 


2 


parameter pointer 


path 


rmb 


1 


Input path number 


totflag 


rmb 


1 


total flag 


options 


rnb 


1 


option bit flag 


textend 


rmb 


2 


end of text block 


1 ines 


rmb 


7 


line count field 


1 inesend 


rmb 


9 


end of line count field 


wordsend 


rmb 


9 


end of word count field 


charsend 


rmb 


2 


end of character count field 


countall 


rmb 


27 


totals fields 


prebuf 


rmb 


1 


previous last character 


buffer 


rmb 


2098 


text buffer 




rmb 


200 


stack 




rmb 


200 


parameters 


dsiz 


equ 







Product Review 

Bible Programs and In- 
structional Programs: 
The CoCo Schoolhouse 

Educational software offerings have 
become fairly limited in the current CoCo 
market, so when one comes along, it is 
usually picked up quickly by those who are 
looking for this type program. Sebastian 
LaSpada's newest products, Bible Programs 
and Inlructional Programs, should prove to 
be no exception. Each of the two products is 
a cohesive package of related programs 
designed for education. In the case of Bible 
Programs, obviously the teaching is of a 
religious nature. The programs supplied in 
the two packages work with any CoCo with 
at least 32K. 

Bible Programs comes on disk and 
contains several Bible quizzes and two 
adventure programs. Following is a brief 
description of the included programs: 

Bible Scriptures: displays a short verse 
(or two) from the Bible — you must supply 
the appropriate book, chapter and verse 
numbers for the given verse. Supports over 
50 questions. 

Bible Scriptures (multiple choice): works 
just like the program above but is presented 
in a multiple-choice format. This version 
supports 70 questions. 

Bible Questions, Part I : provides 80 
multiple-choice questions of a general na- 
ture (books of the Bible, locations, events, 
etc). 

Bible Questions, Part 2: provides 60 
multiple-choice questions about people in 
the Bible and events in their lives. 

Bible Questions. Part 3: offers 50 ques- 
tions (also multiple-choice) of a "who said 
these words" nature. 

The Promised Land: a text quiz/adven- 
ture based on the 40-year journey of the 
Israelites from Egypt to the Promised Land. 
You are asked to answer questions about 
the journey, and you must answer each 
question correctly to visit the Promised 
Land. A wrong answer takes you back to 
the beginning of the adventure. You'll 
probably need a map of the Israelites' jour- 
ney to succeed — such a map is printed in 
the back of most Bibles. 



A Bible Adventure: a text adventure that 
will take you through many scenes and 
events in the Bible. The program follows 
the standard text-adventure format, sup- 
porting two-word commands and single- 
letter directions (though two supported 
commands not found in most other adven- 
ture programs, PRAY and STUDY, will be 
helpful). A map and clue set is available 
from Sebastian LaSpada for $3. 

fntructional Programs offers software 
of a more general educational nature. In- 
cluded are: 

Vocabulary: given a brief definition, 
you must select the correct word from a list 
of four. This multiple-choice quiz is very 
similar to Readers Digest's "It Pays to 
Enrich Your Word Power." Includes 100 
questions. 

Math Quiz: presents 1 0-question rounds 
in your choice of five areas: addition, sub- 
traction, multiplication, division and the 
times tables. Supports four levels in each 
area. 

Homonyms: displays a sentence with a 
blank, which you must fill using one of two 
words that are homonyms (e.g., dear and 
deer). Supports 100 questions. 

Spelling: in an interesting twist, this 
program works just like homonyms except 
that the two words are not homonyms. 
Rather they are the same, though one is 
misspelled. The program often supplies 
clues to the correct spelling when the user 
chooses an incorrectly spelled word. 

Guess the Computer' s Number: guess 
the number (from 1 to 100) that the com- 
puter has picked. This program is intended 
to teach relationships between numbers. 
Unfortunately it exhibits a confusing in- 
consistency: When I guessed 50, 1 was told 
"That is too small!" I then guessed 75 and 
was told "You're almost there!" So I guessed 
85 and got "Still too big, but closer!" Since 
I thought I was coming up on the chosen 
number from below, I was surprised to see 
the word still in that last message. Where 
did I go wrong? Was 75 the first "too big" 
quess, or was it 85? (The chosen number in 
this case was 72.) 

All the programs in the Bible Programs 
and Instructional Programs packages use 
sound and video for an effective presenta- 



tion — correct answers are rewarded with a 
flashy block-graphics display. In addition, 
when an incorrect answer is entered, the 
programs provide the correct answer, which 
I think is an important part of the learning 
process. 

Though they enhance the presentation 
of the programs, I sometimes felt the sound 
and visual effects were a little overdone. It 
takes a while for some of them to stop 
before you can move on. I was especially 
annoyed when 1 thought the programs were 
waiting for me to press a key, only to find 
out they interpreted that keypress as my 
next answer, causing me to miss a few 
questions accidentally. To the author's 
credit, this is explained thoroughly in the 
manual, but it is hard to get used to in 
practice. Perhaps the displays could be 
shortened, or the author could alter the 
programs to ignore any keystrokes until 
they are requested. 

An important aspect of educational pro- 
grams is their ability to be modified as the 
needs and educational level of the user 
increases. With the exception of Math Quiz 
and the two adventures, it is possible to 
modify the questions and answers in all of 
the above programs simply by changing 
DATA statements. Though the formats of the 
DATA statements are not explicitly covered 
in the manual, it should prove to-be fairly 
easy for anyone with a basic understanding 
of basic to alter them. 

The material presented in these two 
packages of educational programs is appro- 
priate for users in and beyond the grade- 
school level. Even many adults will be 
challenged, especially by the two Bible 
adventures. 

All in all, Bible Programs and Instruc- 
tional Programs are well-designed and easy 
to use. I recommend them for anyone inter- 
ested in the study of the Bible and/or tradi- 
tional education. Both packages are very 
reasonably priced, allowing even those with 
a modest income to take advantage of 
them.(Sebastian LaSpada, 531 Main Street, 
Dunkirk, NY 14048, 716-366-5261; Bible 
Programs, $12; Instructional Programs, 
$10; together, $19) 
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The Rainbow Bookshelf 




The Rainbow Book of Simulations, 20 award-winning entries from THE RAINBOW'S first 

Simulations contest. 
The Second Rainbow Book of Simulations, the 16 Winners from our second Simulations 

contest. 
The Complete Rainbow Guide to OS-9, authors Dale Puckctt and Peter Dibble demonstrate 

OS-9"s multitasking and multiuser features. 
The Complete Rainbow Guide to OS-9 Level II Vol.1: A Beginners Guide to Windows. 

Puckett and Dibble uncover the mysteries of the new windowing environment. 
The First Rainbow Book of Adventures, contains 14 winning programs from our first 

Adventure contest. 
The Second Rainbow Book of Adventures, featuring 24 of the most challenging Adventure 

games ever compiled. 
The Third Rainbow Book of Ad ventures, the Excitement continues with 19 new Adventures. 
The Fourth Book of Adventures, fourteen fascinating new Adventures from the winners of 

our fourth Adventure competition. 
A Full Turn of the Screw 
The Rainbow Introductory Guide to Statistics, Dr. Michael Plog and Dr. Norman Stenzel 

give a solid introduction to the realm of statistical processes. 



Name 




J Payment Enclosed, or j Charge to: 


press 




Address 




J VISA a MasterCard □ American Ex 


City 

State Zip 

J The Rainbow Book of Simulations (first) 




Account Number 




Card Exd. Date Signature 


$*r-95 


$ 6.95 | 


$ 935 $ 3.50 


_ jThe Third Rainbow Book of Adventures 


J Rainbow Simulations Tape (first) 


$.935' $ 3.50 


_ 3Thrd Adventures Tape 


S-93'5 


$ 6.95 


J First Simulations Package 


$1930' $ 6.00 


_ 3 Third Adventures Disk Set (2 disks) 


$44V§5 


$ 7.95 _ 


j The Second Rainbow Book of Simulations 


$.935' $ 4.95 


_ D. Third Adventure Package with Tape 


$2t:Sb 


$11.95 


-J Second Rairbow Simulations Tape 


$.33? $ 4.95 


_ 3. Third Adventure Package with Disk 


$ae:Sb 


$12.95 


3 Second Rairbow Simulations Disk 


$30-95 $ 4.95 __ 


-J The Fourth Rainbow Book of Adventures 


$je3§ 


$ 7.95 


Q Second Simulations Package wilh Tape 


$1936' $ 8.95 _ 


_ Cl Fourth Adventures Tape 


t-r§5 


$ 6.95 


□ Second Simulations Package with Disk 


$2030' $ 8.95 


-iFojrth Adventures Disk 


SJ-435 


$11.95 


J The Complete Rainbow Guide to OS-9 


$19-95' $12.95 


_ JFojrth Adventure Package with Tape 


$PfT90 


$13.90 


J Rainbow Guide to OS-9 Disk Set (2 disks) 


$3+:0Tj $19.95 


_ i_JFo;jrth Adventure Package with Disk 


$p5^b 


$18.90 


J Rainbow Guide to OS-9 Package 


$4*95" $29.95 


3 A Full Turn of the Screw 




$19.95 


j The Windows & Applications Disk for 




j Introductory Guide to Statistics 


$-6^5 


$ 2.95 


The Complete Rainbow Guide 




Q Guide to Statistics Tape or Disk (irdicate choic 


)$-335 


$ 2.95 


to OS-9 Level II. Vol. 1 


$19.95 


_ QGuide to Statistics Package 


$.1-2^6 


$ 4.95 


G The Rainbow Book of Adventures (first) 


$,73S' $ 2.00 


_ (indicate choice of tape or disk) 






J Rainbow Adventures Tape (first) 


$. 735" $ 2.00 


_ Add $2 per book Shipping and Handling in U.S 






LJ First Adventure Package 


$1530" $ 3.50 


_ Outside J.S., add $4 per book 






J The Second Rainbow Book of Adventures 


$1335' $ 6.95 


_ Kentucky residents add 6% sales tax 






Li Second Rainbow Adventures Tape 


$1336" $ 6.95 


_ Canadian residents add 7% GST 






u Second Adventure Package 


$2J3TJ $1 1 .95 


(Allow 6 to 8 weeks for delivery) 




Total 


Mail to: Rainbow Bookshelf, The Falsoft Building, P.O. Box 385, Prospect, KY40059. To order by phone (credit card orders 


only) call (800) 847-0309, 9 a.m. to 5 p 


m. EST. For other 


inquiries call (502) 228-4492. 






Please note: The tapes and disks ottered by The Rainbow Bookshelf are not stand-alone products. That is, they are intended to be an adjunct and complement to the books. 


Even il you buy the tape or disk, you will still need the appropriate book lor loading and operating instructions. OS-9 is a registered trademark of the Microware Systems 


Corporation. 
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name 


fcs 


/Count/ 






ldb 


#•0 


yes. make it zero 




fcb 


3 


edition number 




stb 


,y 


save it 




fee 


/(c)1987 S.B 


Gol dberg/ 




bra 


countl 


carry to next digit 


* 








save 


stb 


•y 


save digit 


format 


fee 


/0000000 / 






rts 




return 




fcb 







*************************** 


*** 


******** 


********************** 


* DISPLAY COUNT OR TOTAL 




* INITIALIZE 






************** 


************* 


*** 


******** 


k***** 


**************** 


error 


empb 


#e$cof 


end of file? 


entry 


clr 


totflag 


clear total flag 




bne 


out 


exit with other error 




clr 


path 


standard input path 




Ida 


path 


input path number 




Ida 


#7 


set all option bit flags 




bne 


el ose 


not standard input, close file 




ldb 


,x+ 


parameter character 




leax 


<standin,pcr 


standard input pointer 




empb 


#'- 


options? 




bra 


namesave 


display standard input count 




bne 


findname 


no, check for filename 


close 


os9 


1$close 


close file 




clra 




clear option bit flag 




bes 


out 


exit with error 


optnchar 


ldb 


.x+ 


next parameter character 




leax 


1 ines .u 


start of display 




bra 


chkoptn 


check and set options 


dototal 


ldb 


options 


get option bit flag 


optnl oop 


ldb 


,x+ 


parameter character 


display 


lsrb 




check field flag 




empb 


#$20 


end of options? 




pshs 


b 


save options flag 




bis 


findname 


yes, check for filename 




bec 


nxtfleld 


omit this field 


chkoptn 


orb 


#$20 


make lower case 




ldb 


#6 


digit count 




empb 


#'1 


want 1 ine count? 




tfr 


x.y 


field pointer 




bne 


checkw 


no, check for words option 


zerozap 


Ida 


,y+ 


get digit 




sra 


#1 


set line flag bit 




empa 


#•0 


zero? 




bra 


optnloop 


look for more 




bne 


seefield 


no. send field to screen 


checkw 


empb 


#'w 


want word count? 




Ida 


#$20 


yes. get space 




bne 


checkc 


no. check for char option 




sta 


-l.y 


zap leading zero with space 




ora 


#2 


set word flag bit 




decb 




done? 




bra 


optnloop 


look for more 




bne 


zerozap 


no, check next digit 


checkc 


empb 


#'c 


want character count? 


seef ield 


ldy 


#9 


field size 




lbne 


syntxerr 


invalid option, prompt and quit 




bsr 


printl 


write field to screen 




ora 


#4 


set character flag bit 


nxtfleld 


leax 


9.x 


point to next field 




bra - 


optnloop 


look for more 




ldb 


,s+ 


all fields displayed? 


flndloop 


ldb 


,x+ 


next parameter character 




bne 


display 


no, display next field 


findname 


empb 


#$20 


filename? 


nameit 


puis 


x 


pathname/total pointer 




beq 


findloop 


no. look some more 




bsr 


print 


pathname/total to screen 




empb 


#'- 


hyphen? 




clrb 




clear error 




beq 


optnchar 


yes. check for another option 




ldx 


pointer 


parameter pointer 




leax 


-1.x 


no. reset filename pointer 




Ida 


.x 


next parameter character 




sta 


opti ons 


save options flag byte 




empa 


#$0d 


another filename? 




ldb 


#3 


six count fields (include total) 




lbne 


zerof i 1 e 


yes, count next file 


zerof i 1 e 


addb 


#3 


three count fields (file only) 




dec 


totflag 


more than one file? 




pshs 


x 


save parameter pointer 




bgt 


totalit 


yes, display total 




1 eax 


1 ines.u 


data display area 


out 


os9 


f$exit 


quit 


ln1 tl oop 


leay 


<f ormat ,pcr 


data field format 


total 1t 


leax 


<total ,pcr 


total pointer 


moveloop 


Ida 


.y+ 


field character 


namesave 


pshs 


x 


save total or std input pointer 




beq 


endcheck 


branch if end of field 




leax 


countall ,u 


total display 




sta 


,x+ 


else move to data area 




clr 


totflag 


indicate end of program 




bra 


moveloop 


get another character 




bra 


dototal 


display totals or std input 


endcheck 


decb 




all fields initialized? 


* 










bne 


initloop 


no, do another field 


standin 


fee 


/standard in 


put/ 


****************************** 




fcb 


$0d 




* OPEN FILE FOR TEXT INPUT 




total 


fee 


/total/ 




******** 


****** 


**************** 




fcb 


$0d 






ldx 


.s 


filename pointer 


* 










Ida 


,x 


get character 


print 


ldy 


#200 


maximum length 




empa 


#$0d 


f i lename? 


printl 


Ida 


#1 


standard output path 




beq 


savpoint 


no, use standard input 




os9 


i $wri tin 


print It 




Ida 


#read. 


read mode 




bes 


out 


exit with error 




os9 


i$open 


open file 




rts 




return 




Ibcs 


cantopen 


message on error 


*************************** 


*** 




sta 


path 


save input path number 


* ERROR 


MESSAGES 






inc 


totflag 


count the file 


******** 


****** 


************* 


*** 




Ida 


#$0d 


carriage return 


cantopen 


leax 


<cant .per 


can't open message 




empa 


.x 


end of parameters? 




ldy 


#cantlen 


message length 




beq 


savpoint 


yes, save the pointer 




bsr 


printl 


message to screen 




sta 


-1.x 


no. CR to end of filename 




ldx 


,s 


filename pointer 


savpoi nt 


stx 


pointer 


save next filename pointer 


skipfile 


Ida 


,x+ 


filename character 


******** 


****** 


************* 


*** 




empa 


#$20 


valid character? 


* READ AND COUNT TbXI BLOCK 






bh1 


skipfile 


yes, look again 


******** 


******************* 


k** 




bio 


savenext 


end of parameters, save it 


gettext 


sta 


prebuf 


save last character 




Ida 


#$0d 


carriage return 




leax 


buffer. u 


start of buffer 




sta 


-1.x 


to end of filename 




Idy 


#2098 


maximum text length 


f indnext 


Ida 


,x+ 


character 




Ida 


path 


input path number 




empa 


#$20 


next parameter? 




os9 


i$read 


get text 




beq 


f indnext 


no, look again 




bes 


error 


branch on error 


savenext 


leax 


-1.x 


yes, reset pointer 




tfr 


x.d 


buffer address 




stx 


poi nter 


save it 




leay 


d.y 


add to text length 




bra 


nameit 


filename to screen 




sty 


textend 


save end of text address 


* 








getchar 


empx 


textend 


end of text block? 


syntxerr 


leax 


<syntax.pcr 


syntax prompt 




beq 


gettext 


yes, get next block 




bsr 


print 


prompt to screen 




Ida 


,x+ 


get character 




clrb 




clear error 




empa 


#$20 


printable character? 




bra 


out 


quit 




bhi 


chrcount 


yes. count character 


* 










ldb 


-2.x 


check preceding character 


cant 


fee 


/**** can't 


open: / 




empb 


#$20 


end of word? 


syntax 


fcb 


7 


bell 




bis 


1 i ncount 


no. check for new line 


cantlen 


equ 


*-cant 






leay 


wordsend.u 


word count field 




fee 


/Use: count 


[lwc] [file] [...]/ 




bsr 


count 


count word 




fcb 


$0d 




1 Incount 


empa 


#$20 


space? 


* 










beq 


getchar 


yes, don't count it 




emod 








leay 


linesend.u 


line count field 


len 


equ 


* 






bra 


docount 


count line 




end 






chrcount 


leay 


charsend.u 


character count field 










docount 


bsr 
bra 


count 
getchar 


count character 
get next character 










count 


pshs 


y 


save field pointer 




- 








bsr 


countl 


increment count 












puis 


y 


retrieve field pointer 












leay 


27. y 


total field pointer 










countl 


ldb 


.-y 


get digit 












1ncb 




add 1 












empb 


#'9 


more than 9? 












bis 


save 


no. save it 
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Listing 2: MakeCount.be 



PROCEDURE 
0000 
0027 
004C 
0057 
005E 
0077 



00C1 
00C3 
00DF 
00E1 
0115 
014C 
0180 
01B4 
01E8 
021C 
024D 
0281 
0282 
02E9 
031D 
0364 
0385 
0369 
03ED 
041E 
0455 
048C 
04C0 
04 F A 
052E 
055C 
058D 
05C1 
05F2 
0623 
0657 
0688 
06B9 



MakeCount 
(* Generates the binary module count *) 
(* level I - change all /dd to /d0 *) 
DIM path,byt:BYTE 
DIM count:INTEGER 
PRINT "Creating count . . ."; 
CREATE #path,"/dd/cmds/count":WRITE 
FOR count-1 TO 469 

READ byt 

PUT #path,byt 
NEXT count 
CLOSE //path 
PRINT 

SHELL "attr /dd/emds/count e pe" 
FND 

DATA 135.205.1.213.0.13.17.130.255.0.49.10.0.67.111,117 
DATA 110.244.3.40.99.11.49.57.56.55.32.83.46.66,46.71,111 
DATA 108,100,98,101.114,103,48,48.48.48,48.48,48.32.32.0 
DATA 15.3,15,2,134,7,230,128,193,45.38,41.79.230,128,32 
DATA 6,230.128.193,32,35,30,202.32.193.108.38,4.138.1,32 
DATA 240,193,119,38,4.138,2,32,232,193.99,16,38.1,57,138 
DA I A 4,32,222,230.128,193,32,39,250,193,45,39.208,48,31 
DATA 151,4,198.3.203.3.52.16,48.71.49.140.170,166.160.39 
DATA 4.167.128.32.248,90.38,242.174.228.166.132.129.13.39 
DATA 21.134.1.16.63.132.16.37.0.221.151.2.12.3.134.13.161 
DATA 132.39.2.167.31.159.0.151.61.48.200.62.16.142.8.50 
DATA 150,2.16.63,137.37,68.31.16.49.171.16.159.5.156,5.39 
DATA 229.166.128.129.32.34.19.230.30.193.32.35.5.49.200 
DATA 23.141,15.129,32.39.231,49.78.32,3.49,200.32,141,2 
DATA 32.220.52.32.141,5.53,32,49,168,27,230,162.92,193.57 
DATA 35,6,198.48,231,164,32,243.231.164.57.193.211,38,71 
DATA 150,2,38,5,48,140,79,32,68,16.63,143,37,57,48,71,214 
DATA 4,84,52,4,36,23,198,6,31.18,166,160,129,48,38,7,134 
DATA 32. 16/, 63. 90. 38, 243. 16. 142. 0,9. 141, 65. 48, 9, 230. 224 
DATA 38,222,53.16.141.51,95.158.0.166,132.129.13.16.38.255 
DATA 50.10.3,46.3.16.63,6.48.140.24.52.16.48.200.34.15.3 
DATA 32.186.115.116.97.110.100.97.114.100.32.105.110.112 
DATA 117.116.13.116.111.116.97.108.13.16.142.0.200.134.1 
DATA 16.63.140.37.209.57,48,140.40.16,142,0.18.141.239.174 
DATA 228,166,128,129,32,34,250.37,10,134,13,167.31,166,128 
DATA 129.32,39.250.48.31,159.0,32.154.48.140,22,141.204 
DATA 95.32.165.42.42.42.42.32.67.97.110.39.116.32.111.112 
DATA 101,110,58,32,7.85,115,101.58.32.99,111.117,110.116 
DATA 32.91.45,108,119,99,93,32,91,102,105.108,101,93.32 
DATA 91.46.46.46.93.13.95,49,119 
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Submitting Material 
To Rainbow 

Contributions to the rainbow are wel- 
come from everyone. We like to run a variety 
of programs that are useful, helpful and fun 
for other CoCo owners. 

WHAT TO WRITE: We are interested 
in what you want to tell our readers. We 
accept for consideration anything that is well- 
written and has a practical application for the 
Tandy Color Computer. If it interests you, it 
will probably interest lots of others. However, 
we vastly prefer articles with accompanying 
programs that can be enteral and run. The 
more unique the idea, the more the appeal . We 
have a continuing need for short articles with 
short listings. These are especially appealing 
lo our many beginners. 

FORMAT: Program submissions must 
be on tape or disk, and it is best to make 
several saves, at least one of them in ASCII 
format. We're sorry, but we do not have time 
lo key in programs and debug our typing 
errors. All programs should be supported by 
some editorial commentary explaining how 
the program works. Wealso prefer that edito- 
rial copy be included in ASCII format on the 
lape or disk, using any of the word processors 
currently available for the Color Computer. 
Also.please include a double-spaced printout 
of your editorial material and program listing. 
Do not send text in all capital letters; use 
upper- and lowercase. 

COMPENSATION: We do pay for sub- 
missions, based on a number of criteria. Those 
wishing remuneration should SO state when 
making submissions. 

For the benefit of those wanting more de- 
tailed information on making submissions, 
please send a self -addressed, stamped enve- 
lope (SASE) to: Submission Guidelines, run 
rainbow. The Falsoft Building, P.O. Box 385, 
Prospect, K Y 40059. We will send you com- 
prehensive guidelines. 

Please do not submit material currently 
submitted to another publication. 



SOFT 
SECTOR 

The PC Compatible Magazine 



Special Back Issue Offer — 
Magazines $1 each 
Disks $6 each — 
while supplies last! 





The PC Compatible Magazine L. 

SOFT 
SECTOR _, M J 




SysStat 

Understanding Memory || 
Printer Control 
Sorting Array Data 

Easy File Maripulations 
Prompts wth style and more m 


The PC Compatible Magazine P 

SOFT 
SECTOR m - 

Patriotic Graphics! 

Maze Escape 

Stellar Blast 

Scrolling 

A Look at Memory 

Utility Commands I 

Technical Q&A and more 1 









To order, call (800) 847-0309 
9 a.m.-5 p.m. EST. 



BONUS OFFER: 
Soft Sector Binders $3 Each 



Plug V Go for Your CoCo! 




il^nir AIX-1 020 



This CoCo compatible NX-1020 system sets new standards in color 
printer performance... 225 cps, 4 NLQ fonts including Script, plus a 
high speed draft font; but the enhancements don't stop there, Add a 
1 6k buffer, a special quiet mode, top feed, bottom and rear tractor, and 
the list goes on. Seven on-demand colors, 8 color graphic modes, 
Epson and IBM emulation tor maximum software compatibility. 
Virtually everything desired in a printer is here — speed, color and 
versatility at an affordable price with a 2 year warranty. 

Our Plug'n Go for the Coco system includes: 

• NX-1020 Multi Font Color Printer 

• Blue Streak Ultima 

• Software Support Disk 

• Color Graphics Utilities 



11 r i unci 

$ 239 



95 



. SI Shippings I 



§(g®r NX-1 001 



This CoCo compatible NX-1001 system is fully featured with 4 NLQ 
plus a draft font, 1 character sizes from subscript to quadruple size, 
4k buffer, 180 cps, friction and tractor feed, and much much more. 
Backed by a 2 Year warranty. Epson and IBM emulation modes for 
maximum software compatibility. A performer so versatile you may 
never exhaust it's creative possibilities! 

Our Plug'n'Go for the Coco system includes: 

• NX-1001 Multi Font Printer $1 QO88 
'Blue Streak Ultima 

• Software Support Disk 



stem mciuues: 

M88 1 
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The Ultimate Serial to 
Parallel Interface! 

The Blue Streak Ultima 

7 Switchable Baud Rates ■ 300 thru 19200! 

• An interface cable that converts the serial output of a CoCo 1 , 2 or 3 
toa standard parallel format, compatible with modern parallel printers. 

• Connecting the Ultima isaseasyas plugging in the cable! The four pin 
din plugs into the serial I/O port of your CoCo and the other end, a 36 
pin connector, connects to the parallel port -. — _ 
of the printer SiOftgJu 



$ 39 ! 

* S2 Shipping 

POWERED VERSION 

ADD $6.00 



Order Your System Today... Call (5 13), 885 -5999 



STAR 24 WIRE PRINTER SYSTEMS ALSO AVAILABLE! 

CoCo compatible • Color and Monochrome • Call for pricing 



The Ultima is powered with the +5V supplied 
by most printers on pin 18. If your printer 
does not have +5V on pin 18 you'll need to 
add the power option when ordering. 



DAYTON ASSOCIATES r, INC. 

9644 Quailwood Trail • Spring Valley, Ohio 45370 

Epson ts a registered trade mark of Seiko Epson Corp. IBM is a rooBtered trade mark ot international Business Macfrnes Corp. 







00 



Visa & Mastercard Accepted- 
Ohio residents add 6.5% sales tax COD add $4.00 

Shipping charges to Canada. PR, HI. AK. APO. FPO are double. Triple charge to all other covntnes 
Price and Specifications a»« subject to change without notice. 



All Dayton Associate's products have 
a 30 day moneyback guarantee. 



1 September 1 992 



THE RAINBOW 




EDT Change 
Mode 



I described how to use EDT in its com- 
mand mode a few months ago. This month 
I'll describe how to use EDT in full-screen 
mode on Delphi. First let me remind you 
how to set up for full-screen editing. Type 
/ECHO HOST to set yourself up and /ECHO 
ECHO to restore the default echo setting. You 
can, of course, make a permanent change of 
your echo setting in the settings menu. 

When you enter EDT and see the prompt, 
type C (short for change). You are now in 
full-screen edit mode. If your terminal 
program is set up for VT1 00 emulation and 
you have told Delphi in the settings menu 
that you are on a VT100, and if your termi- 
nal program can emulate the VT100 arrow 
keys, then the arrow keys will move you 
around the screen just as you suspect. There 
are also special functions available through 
the VT100 keypad. If your terminal pro- 
gram can emulate a VT100 keypad PF2 
key, then pressing this key displays a help 
screen. Of course, this will also work if you 
have an actual VT100. VT52 emulation (or 
a VT52) also allows you to use the full- 
screen editing mode. 

The keypad keys allow you to cut and 
paste blocks of text, lines, words and char- 
acters. PF1 is called the gold key — press- 
ing it before certain keys changes the key's 
function. For example, PF4 cuts a line, and 
Gold PF4 pastes that line. To use Gold PF4, 
press PF1 then PF4. The help screen dis- 
plays the function of each keypad key. 

Once you finish editing, press CTRL-Z 
to get to the normal EDT prompt. Of course 
you can switch back and forth between line 
mode and change mode as often as you 
want. From the prompt, enter EX I T to leave 
the editor, just as you normally would. 



Random Information 

Over the past year, several people have 
sent various hints my way, hoping they 
would help other Delphi users. In no par- 
ticular order, here are several hints. 

Mike Dalene (mdalene) pointed out 
that using the command FILE F0RUM.TXT 
NEW in Forum puts all new messages into 
your workspace in the file F0RUM.TXT. This 
command does not update your high-mes- 
sage pointer, so you need to use the HIGH 
command in Forum. You could alterna- 
tively just read the last message by entering 
999999 (or some other absurdly large 
number), and then exit Forum. Either 
method sets your high-message pointer to 
the last message in Forum, preparing you to 
do this again the next time you log on. After 
the FILE command, you can go into your 
workspace and download the file using 
your favorite protocol. Don't forget to de- 
lete the file — conserve storage space! 

Frank Hogg (fhogg) suggested his own 
useful Forum command: READ NEW NS 
FOLLOW LIMIT 12. Let's look at this com- 
mand one part at a time. READ NEW is simple 
to understand. The next part. NS, is short for 
nonstop and instructs Delphi to list all chosen 
messages without pausing at each page or 
between messages. This is useful when you 
can capture to memory or to disk, allowing 
you to capture all new messages and then 
read them offline. FOLLOW means you want 
to follow threads; thus, you won't see the 
messages in numerical order. Following 
threads can help you keep track of the 
discussions you are reading if you log in 
occasionally. Finally, LIMIT 12 is useful if 
you don't generally like reading very long 
messages. You will see only the first 12 
lines of messages longer than 12 lines. 
Delphi adds an extra line of ellipses (...) to 
messages longer than 12 lines to indicate 
that you saw part of the message. 

Many months ago, I mentioned that any 
line in a forum message beginning with . ! 
is a comment that wouldn't be seen by 
people reading the message. Jason Bucata 
(JBUCATA) reminded me that people who 
type /ZDOTS will see these lines! This 
command turns off the Delphi formatter 
and shows you all dot commands. Use / 
NOZDOTS to enable the formatter. 



Jason also wrote that / ENT * shows you 
the names of the last 1 people to enter the 
SIG, as well as the time at which they 
entered. 

Michael Wright (miwright) sent me 
the following message in Mail: 

About four to five weeks ago, we had 
some thunderstorms in this part of Texas 
and I never thought about disconnecting 
my modemfrom the phone lines (nor any of 
my telephones). I have since replaced my 
modem and three telephones. You may want 
to remind your readers of possible hazards 
to avoid the same. 

April Uploads 

Shortly after finishing the database 
reorganization, Greg Law (GREGL) 
uploaded A Ipha Directory a preliminary 
list of all files in the OS-9 SIG databases 
and their full description. Note that this 
upload is in the .ZIP format, so you need an 
unzipping program to dearchive it; it is also 
very large. 

Shawn Driscoll (earther) released 
md 1 r for OS-9/6809 that works similiarly to 
the OS-9/68000 command of the same 
name. Darren Kindberg (dkindberg) 
updated his calendar program for Multi- 
Vue. Wes Gale (wesgale) wins this 
month's busy uploader award! Among other 
contributions are Junk — a safer delete 
utility that copies deleted files to a scratch 
area where you later delete them yourself 
(the files are not deleted). If you have de- 
leted something accidentally, you can eas- 
ily retrieve it. His cdi r utility allows rapid 
searching for files using wildcard characters. 
XArc makes it easy for you to extract files 
from an archive of almost any type without 
having to remember the command-line 
options of each dearchiving program. Wes 
also uploaded a demo version of a fast 
bootfile editor for OS-9/6809. Finally, he 
uploaded a bundle of RiBBS utilities. Jim 
Martin's (WOAY) latest g sort is compat- 
ible with undel and RBF Edition 30. 

Rick Adams (rickadams) released 
Version 4.2 of his UUCP package. This 
release adds new features and fixes some 
bugs. Eddie Kuns (EDDIEKUNS) contrib- 
uted the latest updated clock modules for 
the OS-9 software clock and the Burke & 



Burke and Disto real-time clocks. These 
clock drivers are based on the work of 
Bruce Isted (BRUCEISTED) with additional 
help from Tim Kicntzlc (TIMKIENTZLE). If 
you are having trouble with dropped char- 
acters or terminal programs hanging, this 
clock driver may fix your problems. It 
correctly diddles the GIME to ensure that 
no interrupts are lost. 

If you want to test your disk-drive speed 
on an OS-9/68000-based system, Mark 
Griffith's (markgriffith) DDTest should 
be helpful. It tests read and write speeds as 
well as track-to-track and average-seek 
rates. John Wainwright (JOHNREED) 
uploaded a port of the popular TeX typeset- 
ting language including a previewer that 
should work with K-Windows. Mike Haal- 
and (mikeh aaland) released AA P 1 ay — a 
K- Windows program that displays Auto- 
Desk Animator . FLI and . FLC animations. 

Don Vaillancourt (DONVAIL) uploaded 
the latest version of his OS-9/68000 graph- 
ics and sound standards proposal. 

If you are feeling politically active but 
don't know how to get your message where 
it will do some good, you will be interested 
in Don Hutchison's (DONHUTCHISON) 
upload. This file lists all Congressfolk and 
their fax numbers. Now all you need is 
access to a fax machine! Don also contrib- 
uted a file full of lawyer jokes. Brian 
Flahive (BFLAHIVE) released Easy Reader, 
which allows you to easily read . DOC and 
. TXT files. 




Eddie Kuns is pursuing a doctorate in 
physics at Rutgers University. He lives in 
Aurora, Illinois, and works as a program- 
mer and researcher at Fermilab. Eddie is 
the OS9 Online database manager; his 
username is EDDIEKUNS. 



DATABASE REPORT 



OS-9 SIG 



General Information 

SCULPTOR AVAILABILITY ANN. 

FHOGG Frank Hogg 

PNW_C0C0FEST 

BACKFIRE Christopher Johnson 

0S9 UNDERGROUND: NEW MAGAZINE ANN 

MOHRT Tim Mohr 

SIGNETIC DATA AVAILABLE (FREE) 

LARRYOLSON Larry Olson 

OS-9 FOR MAC:ANNOUNCEMENT/REVIEW 

FHOGG Frank Hogg 

Applications (680°) 

MOIR: OSK LIKE MODULE DIRECTORY 

EARTHER Shawn Driscoll 

THEO: THESAURUS PROGRAM 

RAYMAYEUX Raymond Mayeux 

PORDER: PURCHASE ORDER PROGRAM 

LUTE Lute Mullenix 

GCAL 1.1: CALENDAR FOR MULTIVUE 

DKINDBERG Darren Kindberg 

JUNK: DELETE UTILITY 

WESGALE Wes Gale 

CDIR DIRECTORY/FILE CASE UTIL 

WESGALE Wes Gale 

GSORT V9:NEW SORT FOR M-VUE 

WOAY Jim Martin 

XARC ARCHIVE EXTRACTION UTILITY 

WESGALE Wes Gale 

KWIKGEN - DEMO: BOOTFILE EDITOR 

WESGALE Wes Gale 

Telecom (6809) 

RICK ADAMS' UUCP 4.2 



RICKADAMS Rick Adams 

EDFILES: RIBBS FILE AREA MANAGER 

WESGALE Wes Gale 

UNBUNDLE: RIBBS FIDO-MAIL UTIL 

WESGALE Wes Gale 

USERLOG PROCESSOR FOR RIBBS 

WESGALE Wes Gale 

RIBBS BULLETIN MAINTENANCE 

WESGALE Wes Gale 

Svstem Modules (6809) 

PARALLEL PORT DRIVER FOR J&M 
WOAY Jim Martin 

SMARTWATCH CLOCK DRIVERS 
SAM35 Sieve Mylonas 

GRFDRV 25 LINE PATCH FOR 1-MEG 
DEANHOLDER Dean Holder 
CLOCK UPDATE EDITION 9 
EDDIEKUNS Eddie Kuns 

Games & Graphics 

SPINNING BALLS (VF9) 
DEANHOLDER Dean Holder 
WORD PUZZLE SOLVER/GENERATOR 
WOAY Jim Martin 

RAYTRACED IMAGES 
GRAPHICSPUB Bob Montowski 

Music & Sound 

WHEN THE SAINTS ... (UME) 
OS9BERT Bert Schneider 

Programmers Den 

PASCAL TO C CONVERTER 

ILLUSIONIST Michael Graffam 

TEXT SCREEN MENUS FOR THE COCO 



PAGAN 



Stephen Carville 



OSK Applications 

DDTEST: DISK DRIVE TEST UTILITY 
MARKGRIFFlTHMark Griffith 
MM/1 STARS DEMO (REVISED) 
WOAY Jim Martin 

DATADEX - FREE FORM DATA BASE 
PAGAN Stephen Carville 

CH0WN - CHANGE FILE OWNER 
PAGAN Stephen Carville 

CKFILE: CHECKBOOK PROGRAM 
JOHNREED John Wainwright 
TEX: TYPESETTING PROGRAM 
JOHNREED John Wainwright 
AAPLAY FOR THE MM/1 
MIKEHAALAND Mike Haaland 

OSK System Modules 

SCP68230: MM/1 PRINTER DRIVER 
MARKGRIFnTHMark Griffith 
PTY/TTY MANAGER - BINARIES 
THEFERRET Philip Brown 

Standards 

STANDARDS PROPOSAL FOR OSK 
DONVAIL Don Vaillancourt 



CoCo SIG 



General Information 

CONGRESSIONAL FAX NUMBERS 
DONHUTCHISON Don Hutchison 

LAWYER JOKES 

DONHUTCHISON Don Hutchison 



Utilities & Applications 

EASY READER 1.0 
BFLAHIVE Brian Flahive 




It is often desirable to know how many 
characters a user has entered in a string after 
an INPUT or LINE IN PUT statement is exe- 
cuted. One way of doing this is to use the 
LEN (length) function (e.g., A-LEN(A$)). 
Another way is to use a peek. Memory 
Location 425 contains the length of the 
most recently entered string; to get this 
information, use A=PEEK(425). This latter 
approach may be just a bit faster than the 
first. 
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CALL FOR . . 



Utilities 




Have you written un interesting imlu> program foi use with 
your CoCo? Perhaps others would find it a useful addition to their 
libraries, too! We arc now making tentative plans for the January 
1993 issue of THE RAINBOW and are accepting submissions appro- 
priate for that issue's theme. Utilities. 

We welcome submissions for BASIC as well as OS-9. 

All submissions intended for the January 1 993 issue must 

be received by us no later than September 25, 1992, and 

must follow our standard submission guidelines (see Page 9 

for details and address). 

We'd also like to see any other programs you have 
written (submitted material must be the original work of 
the submitting party, or submitted with written permis- 
sion). All submissions are evaluated and considered for 
publication in future issues. 
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RAINBOW 

Back Issues 




BACK ISSUES STILL AVAILABLE 



ciiad- 



m our past issues? Friim our very first, four- 
page issue to man) with more thanSOOpages 
of material, it's all just for CoCo users — a : 
great way to expand your library! 

A WORLD OF INFO 

AT A BARGAIN PRICE 

AH back issues sell for the single : ..-.-ic ..Over 
price. In addition, there is a 5>.V?0 charge for 
the first issue, plus 50 cents for each addi- 
tional issue for postage and handling if tcni by 



orJei to hold down costs we do not bill and 
:no C.O.D. orders are accepted. 

'■• Due to heavy demand, we suggest you order 
the brtck issues yon want now while supplies 

To order, review and Jill out the form below 
and mail it with your payment. 

For greater convenience, otdei thiough the 



RAINBOW INDEX 

A complete index for, July 1981 through June 1984, is printed in 
the July 1 984 issue. Separate copies are available for$2.50 plus 500 
handling. Indexes for subsequent years are published annually in the 
July issues of the rainbow. 

TOTAL 

KY RESIDENTS ADD 6% 



CANADIAN RESIDENTS ADD 7% GST 

U.S. MAIL CHARGE 

SHIPPING & HANDLING 

U.P.S. CHARGE 

TOTAL AMOUNT 

ENCLOSED 



Article Reprints 

In instances where a given issue is now out of print and not available for 
purchase, we do provide photocopies of specific articles. The cost for this 
service is $1 .50 plus 50 cents S/H per article. This service is provided only in 
the case ol out-of-stock issues. 

Name 

Address 

City 



State 



D Payment Enclosed, orCharge to my: 

Card# 

Expiration Date 

Signature 



_ Zip 
QVISA 



Q MC QAE 



Phone ( ) 



TO ORDER BY PHONE (credit card orders only) call (800) 847- 
0309, 9 a.m. to 5 p.m. EST. All other inquiries call (502) 228-4492. 
send to: THE RAINBOW, The Falsoft Building, P.O. Box 385, 
Prospect, KY 40059 

Please send me the following back issues: 





VOLUME 2 




| JUN83 


Printers 
VOLUMES 


$2.95 □ 


j AUG 83 


Games 


$2.95 LI 


1 SEP 83 


Education 


$2.95 a 


| OCT83 


Graphics 


$3.95 a 


1 MAR 84 


Business 


$3.95 Q 



APR 84 
MAY 84 
JUN84 
JUL 84 



AUG 84 
SEP 84 
OCT 84 
NOV 84 



Gaming 
Printer 
Music 
Anniversary 

VOLUME 4 

Games 
Education 
Graphics 
Data Comm. 



S3.95 a 
S3.95 3 
S3.95 J 
S3.95 -I 



S3.95 LI 
$3.95 □ 
S3.95Q 
S3.95 □ 



DEC 84 
JAN 85 
FEB 85 
MAR 85 
APR 85 
MAY 85 
JUN85 
JUL 85 



AUG 85 
SEP 85 
OCT 85 
NOV 85 
DEC 85 
JAN 86 
FEB 86 
MAR 86 
APR 86 
MAY 86 
JUN86 
JUL 86 



AUG 86 
SEP 86 
OCT 86 
NOV 86 
DEC 86 
JAN 87 
FEB 87 
MAR 87 
APR 87 
MAY 87 
JUN67 
JUL 87 



AUG 87 
SEP 87 
OCT 87 
NOV 87 
DEC 87 
JAN 88 
hbB88 
MAR 88 
APR 88 
MAY 88 
JUN88 
JUL 88 



AUG 88 
SEP 88 
OCT 88 
NOV 88 
DEC 88 
JAN 89 



Holiday 

Beginners 

Utilities 

Business 

Simulations 

Printer 

Music 

Anniversary 

VOLUME 5 

Games 

Education 

Graphics 

Data Comm. 

Holiday 

Beginners 

Utilities 

Business 

Home Help 

Printer 

Music 

Anniversary 

VOLUME 6 

Games 

Education 

Graphics 

Data Comm. 

Holiday 

Beginners 

Utilities 

Business 

Home Help 

Printer 

Music 

Anniversary 

V01UME7 

Games 

Education 

Graphics 

Data Comm. 

Holiday 

Beginners 

Utilities 

Business 

Home Help 

Printer 

Music 

Anniversary 

VOLUME 8 

Games 
Education 
Graphics 
Data Comm. 
Holiday 



$3.95 a 


$3.95 J 


$3.95 a 


$3,95 3 


$3,95 3 


$3.95 3 


$3.95 3 


$3.95 J 


$3,95 3 


$3.95 a 


$3.95 a 


S3. 95 J 


$3.95 Q 


$3,95 3 


$3,95 3 


$3.95 Q 


$3.95 Q 


$3.95 3 


$3.95 3 


$3.95 U 


$3.95 3 


$3.95 3 


$3.95 3 


$3.95 3 


$3,95 3 


$3.95 3 


$3.95 3 


$3.95 3 


S3. 95 □ 


$3.95 3 


$3,95 


$3.95 u 


$3.95 U 


$3,95 


$3.95 J 


$3.95 a 


$3.95 U 


$3.95 U 


$3.95 U 


$3.95 3 


$3.95 


$3.95 3 


$3.95 3 


$3,95 3 


$3.95 3 


S3. 95 J 


$3.95 3 


$3.95 3 


$3,95 3 


$3.95 3 



FEB 89 
MAR 89 
APR 89 
MAY 89 
JUN89 
JUL 89 



AUG 89 
SEP 89 
OCT 89 
NOV 89 
DEC 89 
JAN 90 
FEB 90 
MAR 90 
APR 90 
MAY 90 
JUN90 
JUL 90 



AUG 90 
SEP 90 
OCT 90 
NOV 90 
DEC 90 
JAN 91 
FEB 91 
MAR 91 
APR 9' 
MAY 91 
JUN91 
JUL 91 



AUG 91 
SEP 91 
OCT 91 
NOV 91 
DEC 91 
JAN 92 
FEB 92 
MAR 92 
APR 92 
MAY 92 
JUN92 
JUL 92 



Home Help 

Hardware 

Business 

Printer 

Summer Fun 

Anniversary 

VOLUME 9 

Beyond BASIC 

Education 

Graphics 

Data Comm. 

Holiday 

Beginners 

Home Help 

Hardware 

Business 

Printer 

Summer Fun 

Anniversary 

VOLUME 10 

OS-9 

Education 

Graphics 

Data Comm. 

Holiday 

Beginners 

HoTie Help 

Hardware 

Music 

Printer 

Summer Fun 

Anniversary 

VOLUMt 11 

Graphics 

Education 

OS-9 

Data Comm. 

Hoiday 

Utilities 

Hotib Help 

Ha'dware 

Music 

Printer 

Programming 

Anniversary 

VOLUME 12 

Graphics 
Education 



$3.95 U 
$3.95 Q 
$3.95 U 
$3.95 Q 
$3.95 Q 
$3.95 Q 



S3.95 A 
$3.95 Q 
$3.95 a 
$3.95 Q 
$3.95(3 
$3.95 Q 
$3.95 Q 
$3.95 a 
$3,95 3 
$3.95 a 
$3.95 3 
$3.95 □ 



$3,95 3 
$3.95 3 
$3,95 3 
$3,95 3 
$3.95 3 
$3.95 3 
$3.95 3 
$3.95 3 
$3.95 3 
$3.95 3 
$3.95 3 
$3.95 3 



$3.95 3 
$3,95 3 
$3.95 3 
$3.95 3 
$3.95 3 
$3.95 3 
$3.95 3 
$3.95 3 
$3.95 3 
$3,95 3 
$3.95 Q 
$3.95 3 



Updating Submission Information 

THE RAINBOW has received literally 
thousands of programs and articles over the 
years. Obviously we can't publish all of 
them immediately, so we often hold them 
for possible publication in later issues. Un- 
fortunately, some of the better submissions 
are being held because the authors have 
moved without notifying us of their new 
addresses. 

If you have submitted a program in the 
past, then moved, please take a few minutes 
to send us a note with your new address and 
phone number. Or if you know of someone 
who fits this description and does not cur- 
rently read THERAINBOW, please have them 
contact us. Our address is THE rainbow. 
The Falsoft Building, 9509 U.S. Hwy 42, 
P.O. Box 385, Prospect, KY 40059. Send 
updates to the attention of the Editorial 
Department. 

Received and //5^ 
Certified 'AVfcO^ 



The following products have, recently 
been received by THE RAINBOW, examined 
by our staff and issued the Rainbow Seal of 
Certification, your assurance that we have 
seen the product and have ascertained that 
it is what it purports to be. 

CF83-9: Graphic Set, a word set that allows 
PM0DE graphics use through CF83 Forth 
(required, purchased separately). Supports 
all PMODE commands (though they are named 
differently) for creating, manipulating and 
viewing graphics on the CoCo 1, 2 or 3. 
BDS Software, P.O. Box 485, Glenview, IL 
60025-0485, (708) 998-1656; $28 with 
printed manual, $15 with manual on disk; 
Canadian orders add $3, all other foreign 
orders add $10; all funds U.S. 

CoCoCassette#117, a variety of programs 
for the CoCo 1 , 2 and 3. This issue includes 
Boxes, an arcade-type game; Tic Tac Toe 3, 
for the Color Computer 3; Menu, a disk- 
based menuing system; Muncher, a simple 
text-based PacMan play-alike; Riddle; Lot- 
toGME, a personal lotto game; HCopy, a 
utility for saving graphics images to unused 
RAM for later use; Rahul's Quest 3, a 
joystick-based CoCo 3 adventure; Cars 
Typing Tutor, a typing tutor with a twist; 
and Protect, a Tom Mix game. T & D 
Subscription Software, 2490 Miles Stan- 
dish Drive, Holland, MI 49424, (616) 399- 
9468; $8. 

CoCo Font Pro, a utility for creating, edit- 
ing, saving and displaying text (using 
H PRINT) in different fonts on the CoCo 3 
Hi-Res graphics screens. Fonts included 
are normal, normal inverted, picture, script, 
fancy, outline and bold. Extra fonts are 
available. Color Computing Software, 65 
OakRoad, Canton, MA 02021; $14.95 plus 
$1 S/H. 

Life and Death, the game of Life for one or 
two players — play the game instead of 
simply watching it. Written in CF83 Forth. 
Requires at least 64K, one disk drive and a 
color monitor (RGB or color composite) or 
color television. BDS Software, P.O. Box 
485, Glenview, IL 60025-0485, (708) 998- 
1656; $10 with printed manual; Canadian 
orders add $3, all other foreign orders add 
$10; all funds U.S. 



The Rainbow Seal of Certification is 
open to all manufacturers of products 
applicable to the Tandy Color Computer, 
regardless of whether or not those compa- 
nies advertise in THE RAINBOW. By award- 
ing the Seal, we certify the product exists — 
we have a sample copy and luive examined 
it. However, this does not constitute any 
guarantee of satisfaction. As soon as pos- 
sible, these products will be forwarded to 
reviewers for evaluation. 
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Feature Program 



WWJ 



In these days of Nintendo(tm) et al, 
strategy games are sometimes few and 
far between. Vptop is a challenging CoCo 3 
game that requires logi- 
cal skills and the ability 
to plan ahead — : 
thumb-breaking joys- 
tick action is necessary. 
When run, Upiop 
displays a vertical 4- 
by-1 1 grid, the bottom four rows of which 





are filled with playing pieces of different 
colors. The object is to move all 16 pieces 
as close to the lop of the grid as possible. 
The closer you get, the more points you 
score. Ordinarily this goal would not be too 
difficult to achieve. However, let's take a 
look at Uptop's operation and rules. 

To move, position the flashing cursor 
over the desired piece using the joysticks 
and press ENTiiR. llie selected piece moves 
upward the same number of rows as there 
are pieces in the original row (no piece can 
move horizontally or diagonally). For ex- 
ample, if you choose a piece in a row with 
three pieces, the selected piece moves up 
three rows. The three rules governing your 
moves are as follows: 

**■ the square into 
which you intend to 
move the selected piece 
must be vacant, 

83° a piece may not 
be moved into a row that already contains a 
piece of the same color, 

«" and the top-most piece on the grid at 
any time may not be moved one square 
upward. 

Given these rules, we expect you'll find 
Uptop to be quite a challenge. Points are 
scored only when the 
upper blocks are 
occupied; 560 points 
is a perfect score. The 
game automatically 
ends when you can- 
not make a legal 
move or when all the 
pieces are in the top 
four rows. Press Q at 
any time to quit or 
start a new game. 
Good Luck! 








3 



George and Ellen Af- 
tamonow, two self- 
\taught programmers, 
believe computer users need another num- 
ber cruncher as badly as a pig needs a 
wallet. So they like to sit down and enjoy the 
challenge of writing entertainment soft- 
ware. They can be contacted at 46 Howe 
Street, Milford, CT06460, (203)878-3602. 
Please include an SASE when requesting a 
reply. 




1 

2 'BY GEORGE & ELLEN AFTAMONOW 

3 'COPYRIGHT (C) 1992 

4 'FALSOFT. INC. 

5 'RAINBOW MAGAZINE 

10 PALETTE0.0:PALETTE5,63:HSCREE 

N2:HCLS0:HCOLOR5,0 

15 HPRINT(10,10)."<OMP OR <R>GB 

?" 

20 I$-INKEY$:IFU-""THEN20 

30 IFI*-"C"THEN40ELSEIFI$-"R"THE 

N50ELSE20 

40 PALETTECMP:PALETTE0.0:PALETTE 

1.17;PALETTE2.8:PALETTE3,60:PALE 

TTE4.53:PALETTE5.63:GOTO60 

50 PALETTERGB:PALE~TE0.0:PALETTE 

1 .16:PALETTE2.39:PALETTE3.27:PAL 

ETTE4.50:PALETTE5.63: '0-BLACK:l- 

GREEN:2-RED:3-BLUE:4-YELL0W:5-WH 

60 HCLS0 

65 HDRAWC5S8BM90.40R3D10R5BU10R 
3D13NL11BR5 R3U6R6EU5HL9BF3NUD2R 
4BE56R9 RllD2Lbl)llNL2BR9 NRBBE3N 
R3HU6BU3NL2R6FD11GBR6 R3U6R6EU5H 
L9BF3NUD2R4S4" 

70 HPRINT(19.12)."by":HPRINT(9.1 
6). "GEORGE & ELLEN AFTAMONOW" 
75 FORVO-30TO1STEP-4:PLAY"V-VO:" 
: F0RZ0-5T01STEP- 3 : F0RZN-9T01STEP 
-1:PLAY"L2550-Z0:-ZN;":NEXTZN.ZO 
,V0:PLAY"V15" ^^^^ 

80 HCLS5:HC0L0R1:HPRI«T(7.4)."D0 
YOU NEED INSTRUCT:0NS?":HLINE(4 
0.20)-(280.60).PSET,B:HLlNE(40.6 
1)-(280.61),PSET 
82 IS-INKEYJ: I FI $-""THEN82ELSEI F 
I$-"N"THEN90 

84 IFIi-"Y"THENGOSUB700ELSE82 
90 DATA1. 2. 3. 4. 2.3, 4. 1.3. 4. 1.2. 4 
.1.2.3 

95 DIMA(4.11) 
100 HCLS5:HCOLOR0,5 
110 FORZ-15TO180STEP15:HLINE(130 
.Z)(190,Z).PSET:NEXT:FORZ-130TO 
190STEP15:HLINE(Z.15)-(Z,180).PS 
ET:NEXT 

115 F0RZ-16I0181STEP15:HL1NE(131 
,Z)-(191.Z).PSET:NEXT:F0RZ-131T0 
191STEP15:HLINE(Z. 16) -(Z.18D.PS 
ET:NEXT 

120 X-0 : Yl-8 : FORY-0TO45STFP1 5:F0 
RQ=1T04:READZ:HCIRCLE(X+138.Y+1Z 
8).5.Z:HPAINT(X+138.Y+128).Z,Z:X 
-X+15:A(Q.Y1)=Z:NEXTQ:X-0:Y1-Y1+ 
1:NEXTY 
130 HCOLORl:A-50:FORE-2TO10SItP2 



:HPRINT(13.E),A:A-A-10:NEXT:HPRI 

NT(29.4)."SC0RE" 

140 HCOLOR0:HLINE(8.2)-(318.190) 

.PSET.B:HLINE(50.6)-(314,186).PS 

ET.B:HLINE(12.6)-(56.186).PSET.B 

:HPAINT(10.4).4.0 

150 HDRAW"BM50,60L12D24L8U24L12E 

16F16":HPAINT(40.58).2.0 

152 HPRINT(3.2)."UP":HPRINT(3.4) 

,"T0P":HPRINT(2.22)."GA/EA" 

199 X-130:Y-165:C-1:R-11 

200 HCOLOR0:I$-INKEY$:IFI$-""THE 
NHLINE(X.Y)-(X+15,Y+15).PRESET.B 
:HLINE(X.Y)-(X+15.Y+15).PSET.B:G 
OTO200 

210 IFI$-CHR$(13)ANDA(C.R)-0THEN 

200ELSEIFI$-CHR$(13)THEN300 

220 IFI$-CHR$(9)ANDX<175THENX-X+ 

15:C-C+1:GOTO200 

230 IFI$-CHR$(8)ANDX>130THENX-X- 

15:C-C-1:GOTO200 

240 IFI$-CHR$(94)ANDY>15THENY-Y- 

15:R-R-1:GOTO200 

250 IFI$-CHR$(10)ANDY<165THENY-Y 

+15:R-R+1:GOTO200 

255 IFI$-"Q"THEN520 

260 GOTO200 

300 M-0:FORZ-1TO4: IFA(Z,R)>0 THE 

NM-M+1 : NtX rtLSENLX I 

310 NR-R-M:IFNR<1THEN400ELSEIFAC 

C.NR)>0THEN400 

320 F0RZ-1T04:IFZ-C THENNEXTELSE 

IFA(C.R)-A(Z.NR)THEN400ELSENEXT 

325 IFM>1THEN330ELSEFORZ-R-1 T01 

STEP-1:IFA(C.Z)>0THEN330ELSENEXT 

327 GOTO400 

330 A(C.NR)-A(C.R):P-A(C.R):A(C. 

R)-0:X2-138+(Cl)*15:Y2-23+(NR 1 

)*15:HPAINT(X+8.Y+8).5.5:HCIRCLE 

(X2.Y2).5.P:HPAINT(X2,Y2).P.P 

340 IFR<6THENSC-SC-(6-R)*10 

350 IFNR<6THENSC-SC+(6-NR)*10 

360 HCOLOR5:HLINE(230.48)-(262.6 

0).PSET.BF:HCOLOR1:HPRINT(29.6). 

SC:HCOLOR0:IFSC-560THEN500ELSEGO 

SUB550:GOTO200 

370 'IFSC-560THEN500 

400 PLAY"T250O4ABCO2DDD":HCOLOR1 

:HPRINT(28,16)."ILLEGAL":HPRINT( 

30.18)."MOVE":FORQ-1TO700:NEXT:H 

COLOR5:HPR1NT(28.16)."ILLEGAL":H 

PRINT(30.18)."MOVE":GOTO200 

500 FORQ-10TO60STEP5:PALETTE5.Q: 

F0RZZ-1T022:NEXTZZ.Q:PALETTE5.63 

510 HCOLOR1:HPRINT(28.10)."PERFE 

CT":HPRINT(29.12),"SC0RE" 

520 HC0L0R1:HPRINT(26,18)."PLAY 

AGAIN?" :HPRINT( 29.20). "(Y/N)" 

530 IS-INKEY$:IFI$-""THEN530 

540 I FI*-"Y"THENREST0RE : SC-0 : FOR 

ZZ-1TO11:FORQQ-1TO4:A(QQ,ZZ)-0:N 

EXTQQ,ZZ:GOTO100ELSEIFI$-"N"THEN 

820ELSE530 

549 "check moves left 

550 F0RD-3T011:F0RA-1T04:IFA(A.0 
)-0THENNEXTA:NEXTD 

555 M-0:IFD-12THEN640ELSEFORQ-1T 

O4:IFA(O.D)-0 THENNEXTELSEM-M+1 : 

NEXT 

560 IFD-12THEN640 

565 IFA-5THENNEXTD 

570 CR-D-M:IFCR<1THENNEXTA ELSEI 

FA(A.CR)>0 THENNEXTA 

580 IFA-5THENNEXTD 

585 IFD-12THEN640 

590 FORG-1T04:IFA(G.CR)-A(A.D)TH 

ENNEXTA ELSENEXTG 

595 IFO-12THEN640 

600 IFA-5THENNEXTD 

604 IFM>1THENRETURN 

605 IFM-1THENF0RE-D-1 T01STEP-1: 
IFA(A.E)>0THENRETURNELSENEXTE 
610 IFA-4THENNEXTD ELSENLXTA 
620 IFD-12THEN640 



630 RETURN 

640 HCOLOR1:HPRINT(25.13)."NO MO 

VES LEFT" : PLAY"T250O2BBBO1AAAO2D 

DD":GOTO520 

700 HCL55:HPRINT(l.l)."The Obje 

ct is to move all of your":HPR 

INT(1, 2), "pieces to the top of t 

he grid. Place":HPRINT(1.3)."the 

blinking rectangle over the pie 
ce":HPRINT(1.4)."you wish to mov 
e, using the arrow keys.":HPRINT 
(1.5). "and press ENTER. The p 
710 HPRINT(1.5)."and press ENTER 
. The piece is moved":HPRINT(1.6 
). "upward the sane number of spa 
ces as":HPRINTU.7)."there are p 
ieces in that row.":HPRINT(l .8) . 
"For example: If there are 2 pie 
ces in":HPRINT(l,9)."that row. t 
he piece moves upward 2" 
720 HPRINTt 1.10). "spaces. ":HPRIN 
T( 1.12). "ILLEGAL MOVES:" :HPRINT( 
2.13) . " 1 > The new space must be 
vacant.":HPRINT(2,14)."2) A piec 
e may not land in a row if":HPRI 
NT(1 .15) ."there is already a pie 
ce of the same":HPRINT(1.16) ."co 
lor in that row." 
/30 HPRINT(Z.17)."3) The topmost 

piece may NOT move one":HPRINT( 
1,18). "space upward." 
740 HPRINT(8. 24). "Press ENTER to 

continue" 
750 IFINKEY$-""THEN750 
760 HCLS5:HPRINT( 12.1). "SCORING: 
":HPRINT(1. 3). "Points are scored 

only when the":HPRINT(1.4),"squ 
ares up top are occupied." 
770 HPRINT(1.5)."560 is perfect. 
":HPRINT(l,7),"The game ends whe 
n you cannot move or":HPRINT(l,8 
)."when all pieces are up top. P 
ress <Q>":HPRINT(1.9)."at any ti 
me to quit and start over." 
780 HPRINTC8. 24), "Press ENTER to 

begin. " 
800 I$-INKEY$:1FI$-""THEN800 
810 RETURN 

820 HCLS:Z-21:HC0L0R3:HPRINT(16. 
1),"THC CND":IIPRINT(16,22)."THE 
END":W$-"T":X-16:GOSUB900:W$-"H" 
:X-17:GOSUB900:W$-"E":X-18:GOSUB 
900 : X-20 : GOSUB900 : W$="N" : X-21 : GO 
SUB900:W$-"D":X-22:GOSUB900 
830 HCOLOR2:HLINE(90.80)-(220.11 
6).PSET.B:HLINE(80.72)-(230.124) 
,PSET.B:HPAINT(82.78).0.2 
850 CLS:EN0 

900 Z-23:F0RY-1T0U:Z-Z-1:PLAY"T 
25001 D":HC0L0R3:HPRINT(X.Y),W$:H 
PRINT(X,Z).W$:PLAY"02A":HC0L0R5: 
HPRINT(X.Y).W$:HPRINT(X.Z).Wt:NE 
XT : HC0L0R3 : HPRI NT( X . Y ) . W$ : RETURN 
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Feature Program 



BRAND-LABEL DISK JACKETS 



abeling disks is one of those important computer house- 
keeping chores that is also sometimes frustrating. The little 
gummed labels never seem to stick for long — even if 
they're specially made for disks. I cured this sticky little 
problem by writing a BASIC program to create my own disk 
jackets, complete with printed director}'. 



D JACKET is a short CoCo 3 program that 
prints a disk-jacket outline using standard 
ASCI I characters. Make sure your printeris 
online, and run the program. When 
prompted, put the disk for which you want 
to create a jacket into Drive 0. The program 
reads the disk's directory information as it 
prints. When it is finished, you can print 
another jacket or quit. 

After you remove the printed paper from 
the printer, use scissors to cut around the 
extreme outer portion of the outline. Then 
fold the form on the three lines indicated in 
Figure 1. Use a little transparent tape (or 
glue, if you want) to attach the flaps to the 
back side of the jacket, and you're ready to 
go. 

The control codes DJACKET uses to 



CoCo 3 Disk 



^ 



The Listing: DJACKET 

1 "DISK-JACKET PRINTER 

2 'BY RON DAHIKF 

3 'COPYRIGHT (C) 1992 

4 'BY FALSOFT, INC. 

5 'RAINBOW MAGAZINE 
10 CLEAR 5000 

20 DIM F0$(75),D0$(11) 

30 POKE 150.18 ' 1200 BAUD 

40 WIDTH32:PALETTE 12.63:PALETTE 

13.0:CLS:PRINT 
50 PRINT" PUT DISK IN DRIVE 

" 
60 PRINT"L!NE UP PAPER AND PRESS 

ANY KEY" 
70 EXEC 44539:PRINT#-2:G0SUB 560 
80 CLS:PRINT" WORKING" 

90 G0SU8 450: FOR X-l TO 3:G0SU8 
460:GOSU8 470:NEXT X 
100 GOSUB 460 
110 GOSUB 510:PRINT#-2,TAB<28);" 



Feature Program 



achieve a cleaner appearance are in lines 
520 through 540 and lines 570 through 590. 
While the program is designed for the Tandy 
DMP-107 printer, these program lines are 
commented, and it should be easy to alter 
the codes to suit your printer. 



Ron Dahlke is a certified auto techni- 
cian who has worked in the auto-repair 
business since 1985. He purchased his Color 
Computer in 1986 to keep shop records and 
has been programming since that lime. He 
can be contacted at W7585 Novak Lane, 
Waterloo, WI 53594, (414) 261-6989. 
Please include an SASE when requesting a 
reply. 



Free Space : ":FREE(0) : :G0SUB 560 

120 GOSUB 470 

130 GOSUB 460:GOSUB 470 

140 GOSUB 350:GOSUB 220 

150 PRINT#-2."+ ";CHR$(124); 

5TRING*(56.32);CHR$U24);" + 



160 PRINT#-2." + ";CHRS(12 
STRINGt(56.32):CHR$(124) : " 



170 PRINTtf-2," + ";CHR$(124); 
STRING$(56,32);CHR$(124) ; " + 



I :CDTC 2t0 
280 IF N-0 iritN PRlM))-2,fAB(13) 

290 IF N-l THEN PR!NT#-2.TAB(29) 

300 IF N-2 THEN PRINT#-2.TAB(45) 

310 GOSUB. 510: PRINT* 2.T0$(R)::G 

0SUB 550 

320 R=R+1:N=N+1 

330 IF N<3 THEN 250 ELSE N-0:GOT 

340 

340 GOSUB 470:NEXT L:RETURN 

350 Y-1:F0R X-3 TO 11 

360 DSKI$0.17.X.A$.B$ 

370 D0S(X)-A$+LEFT$(B$,127) 

380 F0$(Y)-LEFTS(D0$(X),8H"."+M 

ID$(D0$(X),9.3) 

390 Y-Y+l 

400 FOR N-l TO 7 

410 F0$(Y)-MIDJ(D0$(X).N*32+1.8) 

+"."+MID$(D0$(X).9+N*32,3) 

420 Y-Y+l 

430 NEXT N,X 

440 RETURN 

450 PRINT#-2,STRING$(70,95):RETU 

RN 

460 PRINT#-2,CHR$(124);STRING$(5 



.32):CHRJ(124);:RE!URN 

470 PRINT#-2.TAB('63):CHR$(124);! 

TRING$(5. 32 );CHR$( 124): RETURN 

480 PRINT#-2.TAB(7):CHR$C124):ST 

RING$(56, 32 ):CHRSC 124): RETURN 

490 PRINT#-2.STRING$(6,32):CHR$( 

124):STRING$(56.32):CHRI(124):RE 

TURN 

500 PRINT#-2.STRING$(6.32);CiiR$( 

124);STRING$C56.95);CHR$(124):RE 

TURN 

510 A-PEEKC&H9C) 

520 PRINT#-2,CHR$(27);CHR$G8); 

' NLQ 10 CPI 
530 PRINT#-2,CHR$(27);CHR$(66); 
HR$H); ' START ITALICS 
540 PR1NT#-2.CHR${27);CHR$(31>: 

' START BOLD 
550 POKE &H9C,A:RETURN 
560 A-PEEKUH9C) 
570 PRINT#-2.CHR$(27);CHR$(19); 

■ STANDARD 10 CPI 
580 PRINT#-2.CHR$(27);CHRJ(66); 
HR$(0); ' END ITALICS 
590 PR!NT#-2.CHR$(27);CHR$(32); 

' END BOLD 
600 P0KE&H9C. A: RETURN 



180 GOSUB 500 

190 FOR X-l TO 27:G0SUB 490:NEXT 

X 
200 GOSUB 500 
210 GOTO 40 
220 N-0:R-1 
230 FOR 1-1 TO 15 
240 GOSUB 460 
250 IF R>68 THEN 340 
260 IF LEFT$(F0J(R).1)-CHR$(255> 

THEN R-R+1:G0T0 250 
270 IF LEFT$(F0S(R),1)-CHR$(0) T 




Driller of the Times 




lath Driller is designed as a teach- 
ing aid for the standard multiplication tables. The 
program works with any CoCo having at least 
16K and Extended BASIC. 



tice more. If you (or your child) is having 
problems with times tables, give Math 
Driller a whirl. 



Math Driller works much like flash cards 
— multiplication problems are displayed in 
rapid succession onscreen, and the student 
must enter the correct answers. If the stu- 



dent takes too much time entering an an- 
swer or doesn 'tenter the correct answer, he 
is informed (with a little sound help from 
the PLAY command) that he needs to prac 



Trevor Boelun is a tenth-grade student 
whose greatest passion is challenging 
computers with new programs. He has 
participated in several science fairs and 
lias received numerous awards for his work. 
He can be contacted at 77 Inwood Cres., 
Winnipeg, MB R2Y 1A2, Canada. Please 
include an SASE when requesting a reply. 



The Listing: DRILLER 

1 'MATH DRILLER 

2 'BY TREVOR B0EHM 

3 'COPYRIGHT <C) 1992 

4 'BY FALSOFT. INC. 

5 ' RAINBOW MAGAZINE 

10 CLS:PRINT:PRINTTAB(9)"MATH DR 
1LLER" 

20 PRINTTABO)" " 

30 X-RND( -TIMER) :X-RND( 12) :Y-RND 

(12) 

40 TIMER-0:PRINT:PRINTTAB(4)X:PR 

INTTAB(2)"X ";Y:PRINTTAB(2)"— - 

45 0=0+1 

50 PRINTTAB(2): INPUT N 
60 IFN=X*Y THENPRINTg 174."C0RRE 
CT" : : C-C+1ELSEPRINT8 174 . "WRONG- 
LEARN IT"::S0UND25.4:W-W+1 
65 PRINTS 330. C; "CORRECT" 
70 IFTIMER>200 THENPRINTS 388. "I 
T TOOK YOU LONG ENOUGH !": PRINT" 
LOOKS LIKE YOU HAVE TO LEARN" :P 
RINTTAB(7)"Y0UR TIMES TABLES": F0 
RI-100TO200STEP10:SOUNDI,5:NEXT: 
IF N-X*Y THEN C-C-.5 
80 SOUND 100.7:IF 0-100 THEN 90 
ELSEGOTO0 

90 CLS:PRINT" YOU GOT": C/100:" 
PERCENT !! !":PRINT"C0WABUNGA, MA 
THEMATICAL DUDES ! ": EXEC44539: RU 
N 
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High-Speed Crystals? 

^^k I've heard various reports on In- 
^B^ ternet of folks accelerating the speed 
of their CoCo 3 hy dropping in a higher 
speed crystal. Specifically, one person 
reported some degree of success replacing 
the 28.63636 MHz (8x Colorburst fre- 
quency) crystal used in the CoCo 3 with a 
32 MHz crystal. What are your thoughts 
about this? 

Art Flexser (ARTFLEXSER) 
Miami, Florida 

A I will stick to the position I took in an 
earlier "CoCo Consultations" column: 
Increasing the speed of the clock crystal is 
afoolish pursuit, of interest only tothemost 
fanatic of hackers. Yes, Dave Macias re- 
ports successfully getting a CoCo to work 
with a 32 MHz crystal. But he also ac- 
knowledges that at that speed he no longer 
can get the video image to sync with his 
Magnavox 1CM135. He was able to per- 
suade a monochrome monitor to sync at the 
increased sync speed by twiddling with its 
horizontal sync adjustment. It's possible 
that if he messes with the ferrite slug on the 
horizontal sync adjustment in the 1CM135 
(assuming the 1 CM 135 has a standard 
horizontal sync adjustment internally), he 
might yet get his CoCo to sync to it. How- 
ever, even if he does, the image will likely 
be somewhat distorted. Note that all you are 
getting when you change to a 32 MHz 
crystal is a roughly 10 percent increase in 
actual computer speed, from about 1.9 MHz 
to about 2.3 MHz actual cycle speed. In my 
opinion this is hardly worth the risk of 
unreliable operation and the video prob- 
lems it causes. Dave's report is of intellec- 
tual interest but not of any practical signifi- 
cance for those who want to increase the 
speed of their CoCo 3. 

High-Speed 6809s? 

4^k I've heard that there exist high-speed 
^K^ versions of the 68B09E chip rated up 
to 8 MHz operation. Is there any way I can 
use such versions in a speeded-up CoCo 3? 
How else can I increase the speed of my 
CoCo 3? W/tat's involved in putting a CoCo 
3 inside a tower case? 

Wayne Thompson (WTHOMPSON) 
Sachse, Texas 

A As I noted above, it is not feasible to 
increase the clock speed of the CoCo 
3 more than a tiny bit without running into 
serious problems involving the memory 
access and video display. For this reason, 
6809 and 6309 chips rated to run at more 
than 2 MHz cannot be used at speeds greater 
than 2 MHz inside the CoCo 3. However, if 
you are using OS-9, there is one way to 
increase performance: Consider installing 
Burke & Burke's PowerBoost kit. This 
$29.95 kit consists of a Hitachi 63B09E 
chip and patches to the OS-9 software to 
take advantage of the expanded and more 
efficient instruction set of the 63B09E. Chris 
Burke claims that block moves can be 
speeded up 400 percent using the 63B09E 
at the standard 1 .89 MHzclock rate with the 
63B09E in native 6309 mode. Since any 



increase in performance will vary with the 
program being run, I'm not sure you can 
expect more than about a 50 percent overall 
increase in speed running ordinary applica- 
tions. But this is the only sensible route to 
boosting your CoCo 3's speed without 
compromising the reliability or video dis- 
play. You do have to have the skill to 
desolder the existing 68B09E inside your 
CoCo 3 and replace it with a socket. Burke 
& Burke supplies the 63B09E, along with 
the patches to OS-9 and a book about the 
6309 processor. 

As for putting a ColorComputer in a PC- 
clone case . . . that's the sort of thing that "if 
you have to ask how to do it. you'd best not 
try it." I suggest you consider doing it only 
with direct, one-on-one help from someone 
locally who has already done this. In a past 
"CoCo Consultations," I have given ex- 
plicit instructions on how to hook a CoCo 3 
to a PC-compatible power supply. Readers 
have reported to me that, by and large, these 
instructions are accurate and that by fol- 
lowing them they have successfully con- 
nected a CoCo to a PC power supply. I 
made one minor error in those instructions: 
I stated that hooking up the 78L08 to power 
was required only for CoCo audio. This is 
not correct. You need power at the 78L08 in 
the CoCo 3 not only for audio but also for 
composite video. 

WEFAX Updates 

4^ In the August 1990 "CoCo Consulta- 
ncy lions" you mentioned there was an 
update to the WEFAX program appearing 
in the February 1985 issue of Rainbow. 
How can I obtain such an update? 

Ellis Cornell 
Dearborn, Michigan 

A If you send me $10, 1 will send you all 
of the latest material I have for 
WEFAX, RTTY and a quality CoCo-based 
Morse Code practice program. These up- 
dates have not changed in the last three 
years, I should note. They do include printer 
drivers for most older Tandy printers in- 
cluding most of the DMP-130 series, for 
older Okidata printers, and for older Gem- 
ini printers. Also included is a send and 
receive version of WEFAX that has been 
used to transmit weather maps to ships at 
sea. The package includes an updated ver- 
sion of RTTY for the CoCo that supports 
several different baud rates and allows trans- 
mission of previously prepared and saved 
ASCII files, and saving of incoming text to 
disk as an ASCII file. You can contact me 
at 1633 Bayo Vista Ave, San Pablo, CA 
94806. 

Spare Motherboards 

^^k How can I vet a spare working moth- 
^C^erboard for a gray-case CoCo I, 
Tandy Cat. No. 26-3003 A? 

John L. Van Winkle 
Wickenhurg, Arizona 

A Tandy no longer stocks CoCo 1 or 2 
motherboards. Even when they did, 
such things were not at all economical to 
purchase from Tandy. In big cities, at occa- 



sional garage sales and at electronic and 
ham flea markets, CoCo l's and 2's sell for 
from $10 to $25 each. That is the best way 
to fix a broken CoCo 1 or 2. 

Graphics Conversions 

^^k Those interested in converting .Gil 
^K^/i/cs to .M&E-type files should be 
aware thai in the CoCo SIG on Delphi is a 
program called NEWGIF. BIN that allows 
you to do this. This program has been in the 
CoCo SIG for a while. Using another con- 
verter called MGET0CM3.BIN (also avail- 
able in the CoCo SIG), you can convert 
.mi files to .CM3 format. 

John Burke (JBURKE) 
Freemont, California 

Downloading With Autoterm 6.3 

^^^ I'm having problems downloading 
^K^ tokenized BASIC programs and bi- 
nary programs using Autoterm 6.3. After I 
save the program and then try to load it, I 
get an IE Error. The manual is very confus- 
ing and ambiguous on this subject. 

Charles Wiggins (WIGGINSC) 
Tucson, Arizona 

A Charles, the problem you are having 
is due to a bug in Autoterm 6.3. The 
file's length is stored as one byte less than 
it should be, hence the IE Error when you 
try to load it. There is a file in the Telecom- 
munications database of the CoCo SIG on 
Delphi that outlines a procedure for repair- 
ing such a file. Search the database with the 
keyword AUTOTERM. You will find a file 
written by Tim Kientzle, based on informa- 
tion supplied by Richard Gonzales (DRffTY). 
The fix described is as follows: Use the 
editor in Autoterm. If you have a version of 
Autoterm prior to 6.3, use A64 or A32 (not 
A 1 2 8 or A 5 1 2 for they have another obscure 
bug). 

1) Go into Autoterm' 's text-editing mode, 
and delete any data in the buffer. 

2) Load (SHIFT-CLEAR-L) the faulty 
file (the one with the IE Error on loading) 
into the editor. 

3) Jump past the end of the file (SHTFT- 
Down Arrow). 

4) Press ENTER (or any key). 

5) Save (SHIFT-CLEAR-S) the result- 
ing file to disk with a new filename 
(otherwise Autoterm will append the new 
file to the old one). 

6) After you have determined that your 
fixed file works, delete the faulty file from 
your disk to prevent any confusion! 

This will add an extra byte to the faulty 
file, fixing it. This procedure may sound 
complicated, but it actually takes only a few 
seconds to do. Thanks to Art Flexser for 
offering this explanation. 

Re-inking Ribbons 

J^A What is meant by the description in 
^^^ Tandy's computer catalog of my 
ancient LP VII ribbon as being a "re-inking 
ribbon." 

Tom Fann (TOMFANN) 
Akron, Ohio 

A Like many other ribbons, the LP VII 
ribbon has little rollers soaked with 
ink that rub against the ribbon as it moves in 
what likely is a continuous and possibly 
moebius loop, adding extra ink to it as it 
passes by. But be careful! As a ribbon gets 
used, it gets physically womand ultimately 
physically tears, often catching a pin from 
the print head and destroying the print head. 
This is an especially nasty problem with 24- 
pin printers whose print heads have espe- 
cially tiny, delicate print pins. 



A Full Meg of Memory 

^^k What can you tell me about l-mega- 
^K^ byte upgrades for the CoCo 3? You 
mentionedyou were using one in a previous 
"CoCo Consultations" column. 

John H. Opheim 
Burt, Iowa 

ADisto/CRC produced a 1MB upgrade 
for the CoCo 3. It was a bit tricky to 
install, requiring soldering a 40-pin header 
to the 68B09E chip in the CoCo. This 
upgrade was of use principly with OS-9 
(after a minor patch was made) and of little 
use to Disk basic users. Sadly, CRC no 
longer produces it, so it is generally not 
available. Occasionally CoCo PRO! has 
used ones for sale, and occasionally one 
gets offered for sale in the Classified Ads 
section of Delphi. 

Simply Better in Parallel 

^fl^ / recently purchased Simply Better 
^K^/br word processing. It works fine 
except it will not print through my Disto 
parallel printer port. Even ADOS 3 config- 
ured for sending output through the paral- 
lel printer port does not cure the problem. 
Is there a way to fix this? 

Randy E Longshore (RANDYE) 
Alta Loma, California 

A Ail Flexser tells me that he knows of 
no patch for Simply Better to allow it 
to use the Disto Parallel port. Apparently 
Simply Better does not go through the BA- 
SIC ROM call for printer output, and thus 
ADOS 3 cannot redirect its printer output. 
However, Art suggests a possible solution: 
U se the feature of Simply Better that allows 
you to save the printer output to disk. Then 
write a two or three line BASIC program that 
you can run under ADOS 3 that prints the 
file. Just open the file, read a line at a time, 
and send that line to the printer, then loop 
back to input another line. Another option 
for ADOS 3 users is the SCANP command, 
which will cause the file to be printed. 



Martin H. Goodman, M.D., a physician 
trained in anesthesiology, is a longtime 
electronics tinkerer and outspoken com- 
mentator — sort of the Howard Cosell of 
the CoCo world. On Delphi, Marty is the 
SIGop of THE RAINBOW'S CoCo SIG. His 
non-computer passions include running, 
mountaineering and outdoor photography. 
Marty lives in San Pablo, California. 




If you've ever printed a long document 
using continuous fan-fold paper, you know 
how frustrating it can be to remove all the 
"edgies" or "holes" from the paper. Some 
people do this by separating all the pages, 
then painstakingly removing the edgies from 
each of them. 

A better way of removing the edgies is to 
leave the pages connected and stacked. As 
long as there are no more than a few pages 
(seven or so) in a group, removing the 
edgies takes less time. As an added benefit 
the stability gained by working with several 
pages at once helps you remove the edgies 
more neatly and accurately. 
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6309 From Cover 

NMOS (Negative Metal Oxide Silicon) 
technology. Chips constructed using NMOS 
technology are known for being relatively 
power hungry , and the 68B09E in the CoCo 
consumes nearly a tenth of an Ampere, or 
100 milliamps. 

Since the 6809 was originally introduced 
and gained in popularity, programmers and 
system designers wanted a CMOS (Com- 
plimentary Metal Oxide Si I icon (version of 
the microprocessor. CMOS technology 
provides for a tenth the power consumption 
of an NMOS chip while actively executing 
code, and a hundredth (or less) the power 
consumption if put into a "standby" mode. 
CMOS technology allows for the design of 
battery-operated systems that, in this case, 
would ordinarily use a 6809. 

Of course CMOS technology is trickier 
to engineer than NMOS, and Motorola ini- 
tially could not produce such a version of 
the 6809. When the technology came to a 
point where making such a version became 
feasible, it turned out Hitachi had most 
experience with such matters. Motorola 
had previously contracted Hitachi for the 
production of CMOS versions of some of 
its other processors, so it was not surprising 
the company went to Hitachi for a CMOS 
version of the 6809. which Hitachi called 
the 6309. 

Current evidence leads me to speculate 
that the engineers at Hitachi approached the 
problem of making the 6309 in a very 
different fashion from the original design- 
ers of the Motorol a NMOS 6809. The origi- 
nal 6809 was laid out using random logic 
(which is sometimes referred to as "hard 
wired".) In this approach, all machine-lan- 
guage instructions are created by directly 
using physical arrays of logic elements. 



The Motorola 6809 is one of the last micro- 
processors designed in such a fashion. 

In 1977 when the 6809 was being de- 
signed, more and more developers of CPUs 
were using what is called microcode for 
chip design. In this approach, a few very 
simple instructions are actually hard wired 
inside the processor, and code is placed in 
permanent ROM within the CPU. This code 
executes parts of the simple instruction set 
in order to seem to be executing the actual 
complex instruction set of the CPU chip. 

The microcode approach makes it much 
easier to design, debug and modify a centra! 
processor chip. In 1977, however, it also 
had one significant disadvantage: Because 
the actual instructions had to be created by 
executing several instructions in a more 
primitive instruction set, a microcoded CPU 
would take more machine cycles to execute 
a particular instruction than would one 
designed using random (hard-wired) logic. 
Indeed, it is for this reason that the hard- 
wired 6809 could make much more effi- 
cient use of machine cycles than its microc- 
oded competition of the time — that a 2- 
MHz 68B09E could get things done as fast 
as other chips of its generation operating at 
up to eight times the cycle speed. 

Nearly ten years passed between the 
time the Motorola NMOS 6809 wascreated 
and the development of the Hitachi CMOS 
version of the chip. (That's an eon in terms 
of computer-chip development history.) In 
that time, engineers and chip designers 
learned a great deal about how to efficiently 
implement microcode type chip architec- 
ture, and they can now make a 6809-like 
chip that executes machine-language in- 
structions as efficiently (and more so) as the 
original 6809, yet do it using microcode 
rather than the hard-wired approach. 

It seems almost certain that the 6309 



from Hitachi was designed using the mi- 
crocode approach. I suspect after the engi- 
neers at Hitachi finished the microcode to 
allow the 6309 to perfectly emulate the 
Motorola 6809, they found there was a lot 
of space left in the internal ROM. They 
apparently used this space wisely and added 
a number of extra registers (see Figure 1) 
and a great number of extra instructions. 
Support was included for moving data to 
and from memory four times taster than the 
6809 could, a 1 6-bit-by- 1 6-bit multiply to a 
32-bit product, error trapping, and more. 

Even though Hitachi engineers knew 
how to make 6809 machine-language in- 
structions execute using fewer machine 
cycles than with the 6809, Motorola had 
asked Hitachi to make the 6309 an exact 
pin-for-pin, instruclion-for-instruction copy 
of the 6809. So Hitachi had to make all 6809 
instructions execute in the exact same 
number of machine cycles as they did on the 
original 6809 . Thi s i s important; some 6809 
programs, like WEFAX and RTTY, de- 
pend on precise timing, which in turn is 
governed by instructions executing in cer- 
tain known numbers of clock cycles. Had 
Hitachi improved the number of cycles for 
execution of standard 6809 instructions, 
such programs would cease to operate. 

To counter this requirement, Hitachi also 
built into the 6309 a native or 6309 mode in 
which even the 6809 instructions had been 
receded to execute in fewer clock cycles. 
Chris Burke's current testing of the 6309 
indicates that, on the average, a 6309 exe- 
cuting 6809 instructions in the native (6309) 
mode executes those instructions about 15 
percent faster. When in the native mode, 
even when running at the same clock speed 
and executing code that contains only valid 
6809 instructions, a 6309 executes that code 
faster than a 6809. 



When power is first applied to the 6309, 
it wakes up in the emulation (6809) mode in 
which all 6809-type instructions are exe- 
cuted in the same number of cycles as 
would be with a true 6809. (Still, this mode 
supports the powerful extra instructions for 
the extra registers, fast movement of data, 
and so on. The extra instructions should be 
present in all 6309 chips, even when they 
are "pretending" to be 6809s.) If the 6309 
receives the proper code, however, it goes 
into the native mode. It is important to 
understand these two different ways a 6309 
can be used to run code faster than a 6809 if 
you want to fully understand what B_.^e & 
Burke has accomplished with PowerBoost. 

Is the 6309 Legitimate? 

Since Motorola had asked Hitachi to 
make an exact CMOS version of the 6809, 
we can assume they did not want an en- 
hanced 6809. They simply wanted an exact 
copy that uses low-power CMOS technol- 
ogy. Although an immense number of 
enhancements were built into the 6309, 
they could not be documented or announced 
because this would violate Hitachi's agree- 
ment with Motorola. When the 6309 was 
released, no one in the U.S. knew of the 
enhancements Hitachi's engineers had 
"secretly" added. Hackers became suspi- 
cious when they found that certain improp- 
erly written programs crashed differently 
on a 6309 than they would on a 6809. While 
information was eventually leaked in Japan 
regarding the extra registers and instruc- 
tions in the 6309, only recently was this 
information translated and made available 
to 6809 programmers in the U.S. Indeed, 
although a handful of insiders may have 
had information about the 6309 for a year or 
more, the vast majority of 6809/CoCo/OS- 
9 programers in the U.S. learned details of 




Optimize Utility Set 1; Optimize your disks by eliminating fragmented files 
and compacting your directories for faster file access. Running time averages one 
hour. Also includes a utility to assess file fragmentation and directory fragmenta- 
tion as well as excess directory padding. Can work in conjunction with Burke & 
Burke's repack utility. Look for upcoming review in Rainbow. $29.95; Foreign 
Postage, add $3.00 

Optimize Utility Set 2: Contains two programs to check the integrity of your 
disks. Detect and correct any directory or file structure errors. Run periodically 
and before any optimizations to insure the reliability of your data. I,ook for upcom- 
ing review in Rainbow. $19.95; Foreign Postage, add $3.00 

Optimize Utility Set PaC: Combination of both optimize sets. Purchasers of 
the Optimize Utility Set 1 can upgrade for $9.95 with proof of purchase. $39.95; 
Foreign Postage, add $4.00 



NinC-TlfnCSi Each issue contains: 9 helpful and useful programs to help build 
your OS-9 library • Instructions, examples, and samples of Basic09 procedures 
and subroutines to help with your own programs and your understanding of 
Basic09 • C programs and programming examples • Hints, Help columns, and 
informative articles to advance your knowledge of OS-9 • Supplied totally of 5.25" 
disk • Bound manual sent to each new subscriber for help in getting Nine-Times 
up and running, as well as tips on using it with a ram disk or hard disk • All 
graphic/joystick interface for case of use. One Year Subscription, $34.95; 
Canadian Postage, add $1.00; Foreign Postage, add $8.00 

Back Issues: Available from the May 1989 Issue, ['lease write for information 
on Back Issue contents. $7.O0 each; Foreign Postage, add $2.00 each 

Magazine Source: Due to many inquiries, the source code for the magazine 
graphic presentation shell is being provided as an informational tool. Included is 
the actual Basic09 source code and compiled modules on disk, as well as docu- 
mentation and a printed copy of the source code. $25.95; Foreign Postage, add 
$5.00 
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P.O. Box 733 Maple Valley, WA 98038 
U.S. ORDER DESK: (800) 237-2409 
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RUN OS9 LEVEL 2 VISIBLY FASTER - GET A 
$29. 95 POWERBOOST FROM BURKE & BURKE! 

You can see the difference in OS9 Level 2 when you install the PowerBoost kit from 
Burke & Burke. It includes the amazing Hitachi HD63B09E microprocessor, a 100% 
compatible high-performance replacement for your CoCo 3' MC68B09E. Using the 
HD63B09E's added registers and high-speed instruction set, Mock moves and other 
functions are up to 4x as fast! The PowerBoost kit includes Burke & Burke's 
PowerBoost software, which modifies your OS9 Level 2 operating system for faster 
multi-tasking, graphics, and disk I/O when using the HD63B09E. SOLDERING IS 
REQUIRED TO INSTALL THE HD63B09E. 

PowerBoost -(HD63B09Ew/ Software for OS9) $29 9S 

The 630Q Book b y Chns Burke. This hook describes (lie instruction set of the 
HD63B09E microprocessor, and gives assembly language examples that help you 
detect the high-performance processor and take advantage of its capabilities in your 
programs. Includes disk with OS9 Assembler / Disassembler / Debugger patches for 
HD63B09E. REQUIRED ASM' ASSEMBLER, DEBUG' DEBUGGER, AND HD63B09E 
MICROPROCESSOR NOT INCLUDED. 



The 6309 Book (Includes disk with development tools for OS9) 



$24. 95 



WORLD CLASS CHESS' - Use Cyrus Chess w/ Level 2 $29. 9S 

FILE SYSTEM REPACK 1. 1 - Faster disk defragmenter $29. 9S 

R S. B. * - Disk BASIC for Level 2 (BASIC ROM required). $39 95 

EZGEN1. 09- Handy & powerful OS9bootfile editor $19 95 

ZCLOCK - Continuous time / date display on Level 2 screen $9 95 

COCO XT- UsePChaiddriw w/CoCo !OS9S/Wincl. $69. 95 
(Add$30forReid-Time Clock. Add $20 for auto boot ROM) 

WA RESIDENTS ADD 8.2% SALES TAX. MasterCard & VISA accepted. U.S. COD's add 

$3.75. Min. U.S. shipping $4.00. Min. to Canada $5.00. Please allow 2 weeks for 

delivery. Overnight or 2nd- day available for in-stock items. Software upgrades $5.00 

each w/receipt, including U.S. shipping. 

Call or write for a free catalog of more exciting Color Computer products! 
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the extra properties of the 6309 around 
April or May of 1992, when a document 
from Japan was circulated on Internet and 
Delphi. 

One question knowledgeable hardware 
tinkerers will ask is, "Can we count on 
Hitachi keeping these extra features in fu- 
ture production runs of the 6309, given that 
these extra features are not officially docu- 
mented?" Chris Burke addressed this issue 
in his seminar on the 6309 and PowerBoost 
at the Chicago 1992 CoCofest. Chris noted 
that in order to pull the new features from 
the 6309, Hitachi would have to recreate 
the mask of the chip, costing them a good 
deal of money. Thus, although there is no 
guarantee future production runs of the 
Hitachi 6309 will continue to have the fea- 



tures mentioned here (on which Power- 
Boost depends), it would seem likely that 
this will be the case. Chris pointed out that 
the 63B09E is relatively inexpensive, so 
interested parties might consider buying 
more than one 6309 to assure continued 
access to its features. 

It's also possible that Motorola would 
get sufficiently upset over what Hitachi did 
to improve the 6309 that it would institute 
legal action to prevent the sale of the chip. 
However, with the 6809 being such a tiny 
fraction of Motorola's business, this seems 
highly unlikely at this time. 

One more thing to remember: Since the 
extra features of the 6309 are not officially 
documented, I would imagine they are also 
not tested in quality control at Hitachi. 



Thus, it's possible that some production 
runs of the 6309 will work fine as 6809's 
but exhibit problems when used in the na- 
tive mode or to execute the extra instruc- 
tions. This too is a theoretical possibility 
that 1 think is not all that likely to be a 
problem in practice. 



The Future? 

We've already taken a brief look at the 
6309's performance advantages, but the 
question as to whether or not the 6309 will 
catch on as a replacement microprocessor 
in privately owned CoCos remains unan- 
swered. Further, no one can at this time be 
certain there are not undiscovered disad- 
vantages (or more advantages) to such 



replacement. THE RAINBOW intends to fol- 
low this subject closely, and you can expect 
much discussion of the 6309 to take place in 
my "CoCo Consultations" column. 



Martin H. Goodman, MD., a physician 
trained in anesthesiology, is a longtime 
electronics tinkerer and outspoken com- 
mentator — sort of the Howard Cosell of 
the CoCo world. On Delphi, Marty is the 
SIGop of THE rainbow's CoCo SIC. His 
non-computer passions include running, 
mountaineering and outdoor photography. 
Marty lives in San Pablo, California. 



Is the 6309 for 0S-9 
Only? 

To take advantage of the 6309's features 
under OS -9 Level II, one need only update 
the operating system's modules. Because 
of OS-9's modularity, performance in- 
creases starting at this level are automati- 
cal ly reflected elsewhere — by applica- 
tions software. This is not so under Disk 
basic because Disk basic software spends 
most of its execution time in its own code. 



Also, the patches developed so far for Disk 
BASIC use only the emulation mode and are 
somewhat limited in benefit. 

It is possible to take advantage of the 
6309's native mode by entering a few simple 
pokes, and you can gain the benefit of, 
perhaps, a 15-percent increase in through- 
put. However, unless you also change the 
interrupt routines in Disk BASIC, the system 
will crash with any attempt to execute sound 
functions, send or receive data through the 
rear serial port ot perform disk I/O. 

Once such patches are in place, though, 



it should be possible to write machine- 
language programs to fully use the power 
built into the 6309. In support of this, Bill 
Vergona (of Cer-Comp, Ltd.) has been 
working diligenlly on an assembler specifi- 
cally designed for use with the 6309 micro- 
processor. At press-time. Bill said the as- 
sembler is 95-percent complete. Heexpects 
it to retail for S59.95, the same price as Cer- 
Comp's existing assembler for the CoCo 1, 
2 and 3. Once that project is finished, if 
enough interest in the 6309 (and software 
for it) exists. Bill will consider redesigning 



some of his products (specifically CBASIC 
and Windows) to take advantage of the 
6309. 

It will be interesting in the coming 
months to see if other software vendors 
follow suit, rewriting existing applications 
and building new ones for the 6309 (we arc 
not currently aware of any others who have 
already patched commercial products). We 
imagine this, too, will depend on the amount 
of interest CoCo users show in the 6309. 



PowerBoost From Cover 

patches them. It notes when it finds a module 
that should be patchable but isn't (due to the 
module being different, custom or absent). 

The product I saw in Chicago is ready 
for shipment, but is in its infancy. Chris has 
patches (of course) for the hard disk drivers 
for the Burke & Burke CoCo-XT interface: ] 
He says he plans to work on similar patches 
for the RGB and Disto hard-drive code. 
Eventually Chris hopes to have patches for 
Other hard-drive systems, for the OS-9 
assembler and other aspects of the system. 
Chris does not at this time anticipate patch- 
ing the C compiler, but hopes the informa- 
tion he will supply through his soon-to-be- 
released book about the 6309 will permit 
other dedicated programmers to update the 
C library for optimized use with a 6309. 

Most important of all, the current set of 
patches use only the extra instructions 
available while the 6309 is in the 6809 
emulation mode. He hopes to have more 
advanced patches available in the near fu- 
ture that will take advantage of the native 
mode. Chris also hopes to have out in the 
near future patches to the graphics modules 
that should massively speed up data trans- 
fers performed by them. 

Those desiring a power boost for their 
CoCo 3 OS-9 systems need not, however, 
waitfor the later improvements of the prod- 
uct. Burke & Burke has a very generous 
policy for updating old versions of the 
product with new releases when they are 
available — the charge is expected to be 
something like $5 for the upgrade. 

What exactly does all this translate to in 
terms of the speed at which work-a-day OS- 
9 application software is executed? This 
will of course depend on how much the 
software you use makes use of system 
functions that are speeded up by the Power- 
Boost patches. Programs that intensively 
use the hard drive and RAM disk should 
show dramatic speed increases, perhaps 50 
percent or more. Ofherprograms might not 
show much noticeable speed increase. 
Overall, however, based on my limited look 
at the product, I am quite convinced that 
those who install PowerBoost will see a 
significant increase in the speed of their 
OS-9 systems. 



What about compatibility? t suspect that 
these patches won'tmake a system any less 
compatible with an ordinary OS-9 applica- 
tion. I can imagine some unusual programs 
that depend on recognizing a byte for byte 
sequence that PowerBoost has patched, 
resulting in failure when. PowerBoost is • 
installed. I doubt this will often be a prob- 
lem, though. Indeed, should PowerBoost 
catch on in a big way (as I suspect it will), 
it is likely that authors of OS-9 application 
programs will release patches for their 
applications to further increase the utility of 
the PowerBoost kit. 
PowerBoost and BASIC? 

I have so far sidestepped the issue of the 
6309's advantages under basic In my 
opinion, PowerBoost is currently a product \ 
solely for OS-9 users, although I have not 
yet seen the patches included for Disk BA^ ■'■ 
SIC in the PowerBoost kit. According tCP 
Chris, the patches he has made for Disk 
BASIC (at the time of this writing) make 
only a small speed difference. 

A CoCo 3 with a 63B09E installed will 
run BASIC just fine. And in theory, patches 
similar to those for OS-9 could be made to 
Disk BASIC (the same way ADOS 3 cur- 
rently patches the system). However, I 
imagine such patches would be of little 
significance in most cases because most 
Disk BASIC software spends most of its time 
in its own code and very little time calling 
Disk basic routines. Thus, to effectively 
use a 6309 with Disk BASIC programs, you'd 
have to have individual patches for each 
application program. . v. .. • = 

Those who want to experiment with the 
6309's native mode under Disk BASIC can 
try poking the Hex values $11 $3D$01 $39 
into a USER function, then executing it. 
Chris Burke says you should see about -a 1 5- 
pereent overall speed increase. However, 
be sure not to use disk I/O or output to the 
printer or other serial device via the 4-pin 
bit-banger port — - the changes in instruc- 
tion cycle counts for the code messes up 
thosetunctions. Itshouldalso be possible to 
significantly enhance BASIC graphics pro- 
grams by rewriting parts of the graphics 
code in the BASIC ROMs to use the more 
efficient data-transfer operations of the 
6309. 



The Hardware Aspect 

Replacing the CoCo 3's 68B09E with 
the PowerBoost's 63B09E is not a trivial 
matter; the 68B09E chip is soldered di- 
rectly to the delicate doubie-sided CoCo 3 
circuit board, and replacement involves 
signficant hardware skill. The PowerBoost 
instructions detail two approaches to the 
replacement: desoldering the 68B0SE and' 
destructive removal. I prefer the latter 
approach, as a clean removal with an un- 
harmed PC board is far more easily achieved 
than with the former approach. [Editor's 
Note: Shortly before this issue went to press, 
Chris-Burke circulated on Delphi and else- 
where a document describing a third ap- 
proach. This method involves piggyback- 
ing the socket on the existing 68B09E, then 
installing the 63R09E. With this tactic, you 
can choose to totally disable the 6809, or 
you can install a switch that enables you to 
select between the 6809 and the 6309. Best 
of all, this approach does not require that 
you remove the existing 6809, though the 
installation still requires hardware skills.] 

Whichever method you choose, after the 
68B09E is removed, you proceed to install 
the 40-pin socket included with Power- 
Boost. Once the socket is installed, you can 
install the 63B09E and be on your way. 

Those folks with 1- or 2-Meg upgrades 
will have to be especially creative when 
installing the PowerBoost, as the memory 
upgrade is already soldered to the 68B09E. 
The quickest way to handle this would be to 
desolder the memory board from the exist- 
ing 68B09E chip, install the socket, then 
solder the the memory board to the 63B09E 
chip and plug that into the socket. 

A far more elegant, reliable and easy-to- 
service approach would involve construct- 
ing a circuit board with a socket on it forthe 
63B09E chip, with pins coming out from 
the bottom of the socket under the PC board 
in a way that allows them to be plugged into 
yet another socket. Then bend out the two 
rows of pins from the memory board that 
formerly would be soldered directly to the 
CPU chip and let them straddle the socket 
on the top of your satelite board. Finish by 
wiring them to each pin of that socket. 

Burke & Burke sells the PowerBoostkk 
with the current sets of patches for a re- 



markably generous $29.95 M you are a 
heayy-duty hacker and have a 63B09E lying 
around, Burke & Burke will sell.yoti Pow- 
erBoost without the 63B09E for $25. (Note 
that $5 for a 63B09E is a very reasonable 
price, so if youdorto/havea63B09E lying 
around right now, I urge you to buy it as part 
: of the PowerBoost kit.) In addition, you can 
purchase extra 63B09E chips from Burke 
& Burke for $5. 

It has been my intent in this review to 
provide sober solid facts concerning con- 
cerning PowerBoost. However, I must make 
a confession: I have for years had the very 
highest personal regard for Chris Burke. He 
impresses me as an exceptionally creative 
and competent software and hardware de- 
signer, and as an outstandingly decent, 
generous person. I believe his contributions 
to the Color Computer Community have 
been among the most significant. I urge 
OS-9 users who are interested in squeezing 
greater power out. of their CoCo 3 OS-9 
system to strongly consider buying Power- 
Boost. Let's all support those who continue 
to provide new. innovative products for this 
beloved machine. (Burke & Burke, P.O. 
Box 733, Maple Valley, WA 98038, 206- 
432-1814; $29.95 plus $4 S/H.) 

— Marty Goodman 
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FIND YOUR ROOTS 
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Contrary to the image that may have 
formed in your mind upon reading the 
title above, this month's installment deals 
not with geneology but with determining 
the roots of an equation (at what points the 
function equals zero). This is one of the 
oldest problems in mathematics. While there 
is no one method that always produces 
correct results, there are several popular 
methods that eventually solve equations to 
a reasonable degree. In this article I'll dis- 
cuss just one of these methods and use 
graphics to demonstrate the results. 

The Newton/Raphson method of deter- 
mining roots starts with an approximation 
(or guess) of the correct answer and keeps 
applying an iteration formula to the original 
value to produce new approximations. These 
new values will either approach one of the 
roots, bound off to infinity or oscillate be- 
tween two values. (A computer program 
can include checks to weed out the last two 
cases.) The formula simply states that a 
better value is equal to the previous value, 
minus the function divided by it's deriva- 
tive. (The derivative of Ax" is nAx""'; for 
example, the derivative of x 1 is 2x.) 

Let's try a quick example and solve the 
equation x 2 -2=0 using an approximation of 
1 for an answer. The method says that a 
better guess is x-(x 2 -2)/2x or, rearranging 
terms (x 2 +2)/2x. Trying our guess of 1 yields 
a new value of 1.5. Using this value in the 
same equation we get a better value of 1 .42; 
substituting again produces 1.414. Each 
successive step gets us closer to the answer. 
So when do we stop? 

At the beginning of any program for 
determining roots, you need to define a 
tolerance value. When the absolute differ- 
ence between two successive results is less 
than the tolerance, stop; that's close enough 
to the answer. 

Now suppose we had used -1 as our 
guess. This time the results would approach 
- 1 .4 1 4. As your equation gets more compli - 
caled you can't predict what initial value 
will lead to which root. How many times 
you want to keep iterating is up to you. I 
stop after 50 times since most values have 
reached a root by then (except for the ones 
that oscillate). And since division is in- 
volved, we'll always have to ensure the 
demoninator (the derivative) is never zero. 

On With the Program 

I decided to show the results of root 
determination graphically based on how 
long it takes a value to reach a root. Since 
my program uses PM0DE4 with only two 
colors, I have it plot a point only when it 
reaches a root and the iteration count is 
even. This gives the illusion of a contour 
map. The BASIC program shown in Listing 
1 is a short demonstration that graphs the 
roots of the equation x 2 -255a:+14450. When 
you run it, you'll see that some values 
produce a root very quickly while others 
take much longer. But that's just a one- 
dimensional graph. How can we use ay axis 
and get a two-dimensional contour map? 

In previous articles in which we dis- 



cussed the Mandelbrot and Julia sets, we 
solved this problem using complex num- 
bers; because they're two-dimensional, they 
fit right into our root-solving equation. (Try 
to solve x z + 1 =0 using our present method ! ) 

A complex number Z is made up of a real 
part x and an imaginary party; (/ represents 
the square root of -1). Now let's try to solve 
Z 2 +2=0 with a guess of x=l and yi=l. Our 
better guess for Z will be (Z 2 -2)/2Z. Since 
7j=x+yi, this reduces to ({x 1 -y l -2)+2xyi)l 
(2x+2yi), a complex number divided by 
another complex number. To save you time, 
a complex number A+B//C+D/ results in a 
new real number of the form (AC+BD)/ 
(CC+DD) and a new imaginary number of 
z(BC-AD)/(CC+DD). 

This division gives us a new real number 
(RR=0) and a new imaginary number (11=1) 
which should be closer to the correct solu- 
tion. We have to compare the differences 
between the old and new real numbers and 
the old and new imaginary numbers. If each 
is less than the tolerance (I use .0001 ) then 
Z^ is a root of the equation. Using these 
new values, a better result is RR=0 and 
11= 1 .5. RR willcontinue to equal zero while 
II will approach a root. 

To graphically demonstrate this proce- 
dure, the program checks all the values 
between, for example, -1 and +1 in the real 
{x) direction and - 1 and + 1 in the imaginary 
(y) direction. Each point is be iterated up to 
50 times. Whenever the parts of a 2 aev are 
almost the same as the Z dd , the point is set 
if the iteration count is even. The machine- 
language program shown in Listing 3 car- 
ries this out using a few short-cuts, which 
are explained in the source code. After 
you ' ve entered the assembly-language list- 
ing, save it using W ROOTS. ASM and as- 
semble it using A R00TS.BIN /NS/WE. 

The BASIC program shown in Listing 2 
reads your equation and pokes the neces- 
sary values into the correct locations. Save 
this program as ROOTS .BAS. Since the pro- 
gram can graph up to fifth-degree equa- 
tions, be sure to fill in the blank coefficients 
with zeros. Follow the six coefficients with 
the starting x coordinate, the total x dis- 
tance, the starting y coordinate and the total 
y distance. The program asks if you want a 
small (64-by-64), medium (1 28-by-l 28) or 
large (255-by-191) display. 

In DATA statements, I've included some 
equations you might try. Notice that I used 
theMKN$( ) command instead of VARPTR( ); 
in this way, we don't have to define vari- 
ables at the beginning of the program. 

Don't look for any great speed in this 
type of program; with up to 50 iterations per 
point and over 49,000 points, it takes a 
while to draw. 1 would put the high-speed 
poke in Line 220 and the normal-speed 
poke at the end of Line 230. Use the smaller 
(faster) display first to find an equation you 
like, then use the medium or large setting to 
increase it. You can zoom in on a portion by 
changing the x and y locations and dis- 
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Save Money Too! 

Subscribe to these convenient services and receive each month's programs in a ready-to- 
run form. No more long tedious hours wasted typing! No more red eyes and sore fingers! All 
you do is load and run, using the current issue of THE RAINBOW as documentation. 

0S-9 programs are available too! One side of the RAINBOW ON DISK is formatted for the 
OS-9 operating system (0S-9 programs cannot be put on tape) so you can get all the great pro- 
grams in the magazine. 

A one-year subscription to THE RAINBOW and RAINBOW ON TAPE is only $91 in the U.S., 
$108 in Canada, $153 foreign surface rate and $188 foreign airmail. 

A one-year subscription to THE RAINBOW and RAINBOW ON DISK is only $1 1 5 in the U.S., 
$138 in Canada, $183 foreign surface rate and $21 8 foreign airmail. U.S. currency only.Back 
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copy of RAINBOW ON TAPE is $1 within the U.S., $1 2 in all other countries. The annual sub- 
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countries. U.S. currency only. 
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single copy of RAINBOW ON DISK is $1 2 within the U.S., $1 4 in Canada, $16 in all other count- 
ries.The annual subscription for RAINBOW ON DISK is $99 within the U.S.; $1 15 in Canada; 
and $130 for all other countries. U.S. currency only. 
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Do You Rest 
Easy at Night? 




THE RAINBOW is the only publication that offers peace of mind to CoCo 
users. Members of the CoCo Community have always looked to THE RAIN- 
BOW for comfort — hints, tips, the latest news and communication with 
others — for their Tandy Color Computers. 

THE RAINBOW continues to serve and support CoCo users, from 
beginners to the advanced, by covering the wide variety of topics affecting 
the CoCo Community. Looking for games? Telecommunications pack- 
ages? Finance programs? Interested in helpful utilities? Hands-on hard- 
ware projects? Want to take the guesswork out of buying software and 
hardware? From Disk BASIC to OS-9, THE RAINBOW has the answers to 
all your CoCo questions. 

Get rid of your nightmares by renewing your subscription today. THE 
RAINBOW — The best security blanket for a good night's rest. 



Use our 800 number! 

For credit card orders, you may phone in your subscription. Our credit 
card order number is (800) 847-0309, 9 a.m. to 5 p.m. EST. We accept VISA, 
MasterCard and American Express.AII other inquiries call (502) 228-4492. 



Yes! Please send me RAINBOW Magazine. 

Choose one: J New □ Renew (attach label) 

J One Year $31 — 35% off cover price 
J Two Year $58 — 39% off cover price 
J One Year $79 — 44% off cover price 



Which Tandy Color Computer do you use'i 
J CoCo 1 LI CoCo 2 J CoCo 3 



Name 
Address 
City 



State 

is enclosed. 



ZIP 



□ My check in the amount of 

Charge to: Q VISA □ MasterCard J American Express 

Account Number 

Expiration Date 



Signature 



Subscriptions lo THE RAINBOW are $31 a year in the United States. Canadian rate is 
$38 plus 7% GST (U.S. funds only). Surface rate elsewhere is $68 (U.S.). Non-US. 
subscribers must inquire about multi-year discount. Airmail is $103 (U.S.). Kentucky 
residents add 6% sales tax All subscriptions begin with the current issue. Please allow 
6 to 8 weeks tor the first copy. In order to hold down non-editorial costs, we do not bill. 

For credit card orders, call (800) 847-0309, 9 a.m. to 5 p.m. EST. All other inquiries 
call (502) 228-4492. 



tances. You might want to add I > this pro- 
gram the zoom routine from my article 
about Julia sets (February 1991. Page 30). 



Bill Nee bucked the snowbird trend by 
retiring to Wisconsin from a banking ca- 
reer in Florida. The success of his 13 -part 
series, "Machine Language Made BASIC" 
(July 1988 to July 1989), prompted him to 
continue writing articles about Color 
Computer machine-language program- 
ming. You may contact Bill at Route 2. Box 
216C, Mason, Wl 54856-9302 , (7/5) 746- 
2952. Please include an SASE when re- 
questing a reply. 



Listing 1: BASRCOTS 

10 PM0DE4.1:PCLS:SCREEN1.1 

20 FOR X=0 TO 255:A-X 

30 FOR Z-0 TO 50 

40 DE-2*A 255: IF DE-0 THEN 90 

50 RR-A*A- 14450 

60 AA=RR/DE 

70 IF ABS(A-AAX.0001 THEN 100 

80 A=AA:NEXT Z 

90 NEXT X 

99 GOTO 99 

100 LINE(X.96)-(X.96-8*Z).PSET 
110 GOTO 90 



Listing 2: ROOTS 

10 CLEAR200.&H6000 

20 IF PEEK(&H60AD)<>204 THEN L0A 

DM"ROOTS":POKE&HFF40,0 

30 CLS:PRINT" SIZE OF DISPLAY -" 

," <S>mall".," <M>edium". ," < 

L>arge" 

40 A$=INK£Y$:IF A$="" THEN 40 

50 IF A$="S" THEN SX=64:SY=64 

60 IF A$="M" THFN SX-1 ?8:SY=1?8 

70 IF A$-"L" THEN SX-256 : SY-192 

80 READ N:POKE&H6000.N: 'DEGREE 

F EQUATION 

90 READ C5:A-C5:LO-&H6067:GOSUB3 

20 

100 READ C4:A=C4:LO=&H606C:GOSUB 

320 

110 READ C3:A-C3:LO-&H6071:GOSUB 

320 

120 READ C2:A-C2:LO-&H6076:GOSUB 

320 

130 READ C1:A=C1:LO=&H607B:GOSUB 

320 

140 READ C0:A=C0:LO~&H6080:GOSUB 

320 

150 READ XC:A=XC:LO=&H600E:GOSUB 

320:READ XD 

160 READ YC:A-YC:LO-&H6018:GOSUB 

320:READ YD 

170 XS=XD/SX:A=XS:LO=&H6013:GOSU 

B 320: IF A$="L" THEN SX=SX-1 

180 YS-YD/SY:A-YS:LO-&H601D:GOSU 

B 320: IF A$-"L" THEN SY-SY-1 

190 POKE&H6022.0:POKE&H6023,SX 

200 POKE&H6024.0:POKE&H6025,SY 

210 PMODE4,1:COLOR0.5:PCLS:SCREE 

N1,1:POKE&HB5.0 

220 'YOUR FAST POKE 

230 EXEC &H60AD:'SLOW POKE 

240 GOTO 240 

250 DATA 3. 0,0. 4. i 

2 

DATA 3.H 



1.1, 



). -3. 0.-1. 2.-1. 
J. -1.-1.2.-1 



'DATA 4.0,5.4,3.2.1.-1.2.-1. 
'DATA 4.0.5.4.3.2.1. .7.-5. 



260 

.2 

270 

2 

280 

2.1 

290 "DATA 4.0.8.0.-8.0.1.-1,2,-1 

,2 

300 'DATA 5,1.0.0,0.0,1,-2,4,-2. 

4 

310 'DATA 5.16.0,-20.0.5.0,1.2, 

•1.2 

320 Z$-MKN$(A) 

330 FOR N-1 TO 5:P0KE L0+N-1.ASC 

(MID$(Z$.N.1)):NEXT:RETURN 



Listing 3: ROOTS 
00100 Ann 

00110 SUB 
00120 MUL 
00130 DIV 
00140 XI 
00150 Yl 
00160 
001/0 MOVE 



00210 

00220 

00230 

00240 

00250 

00260 ZER0IT 

00270 



t?£290 



00310 
00320 
00330 
00340 
00350 
00360 
00370 



00400 

00410 COMP 

00420 

00430 

00440 

00450 

00460 

00470 



FOII 
EQU 
EQU 
EQU 
EQU 
EQU 

MACRO 

LDD 

STD 

LDD 

STD 

LDB 

STB 

ENDM 

MACRO 

LDD 

LDX 

STD 

STD 

STD 

STD 

STD 

STD 

STD 

STD 

STD 

STD 

ENDM 

MACRO 

LDX 

JSR 

LDX 

JSR 

LDA 

CMPA 

Bill 



SB9C? 
SB9B9 
SBACA 



$BE 
$C0 



U 

\0+2 

\l+2 

\0+4 

U+4 



#0 

#R1 

,X++ 

,X++ 

,X++ 

,X++ 

,X++ 
,X++ 

.X-M- 

,x++ 
,x++ 

■ X 



#\0 

$BC14 

#\1 

SUB 

J4F 

#114 

\2 



CLEAR R1.I1.R2.I2 



NOT WITHIN TOLERANCE 



DELPHI -Theill per hour online solution! 



DELPHFs 20/20 Advantage Plan sets the standard for online value: 
20 hours for only $20, for all the services you want! 

• Thousands of files to download. 

• Chat lines with hundreds of participants. 

• Worldwide e-mail. 

• Hobby and computer support groups. 

• Multi-player games. 

• Local access numbers 
in over 600 cities and towns. 



Trial Offer: 5 hours for $5! 

Try DELPHI at $1 per hour. Join today and get 5 hours of evening and weekend 
access for only $5. If you're not satisfied, simply cancel your account before the 
end of the calendar month with no further obligation. Keep your account active 
and you'll automatically be enrolled in the 20/20 plan for the next month. 

1. Via modem, dial 1-800-365-4636. 

2. When connected, press RETURN once or twice. 

3. At Password, enter RB55 

Questions? Call 1-800-695-4005. 

Rates apply for evening and weekend access from within the mainland US. There is a one-time enrollment fee of $19 
when you join the 20/20 Advantage Plan. Further details are provided during the online registration. 





DELPHI is a service of 

General Videotex Corporation 

1030 Massachusetts Avenue 

Cambridge, MA 02138-5302 

800-695-4005 • 617-491-3393 
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00490 


ENDM 




01560 Rl 


RMB 


5 


00500 






01570 11 


RMB 


5 


00510 TERM1 


MACRO 




01580 R2 


RMB 


5 


00520 *ALL REAL TERMS 




01590 12 


RMB 


5 


00530 


lLX 


#\1 


01600 DE 


RMB 


5 


00540 


JSR 


$BC14 


01610 RR 


RM3 


5 


00550 


LDX 


#\2 


01620 II 


RMB 


5 


00560 


JSR 


MUL 


01630 TEMP 


RMB 


5 


00570 


LDX 


#\0 


01640 C7 


RMB 


5 


00580 


JSR 


$BC35 


01650 C6 


RMB 


5 


00590 


LDX 


#\3 


01660 C5 


RMB 


5 


00600 


JSR 


$BC14 


01670 C4 


RMB 


5 


00610 


LDX 


#\4 


01680 C3 


RMB 


5 


00620 


JSR 


MUL 


01690 C2 


RMB 


5 


00630 


LDX 


#\0 


01700 CI 


RMB 


5 


00640 


JSR 


SUB 


01710 C0 


RMB 


5 


006 '50 


LDX 


#\0 


01720 RT2 


RMB 


5 


00660 


JSR 


$BC35 


01730 IT2 


RMB 


5 


00670 


ENDM 




01740 RT3 


RMB 


5 


00680 






01/50 113 


KMB 


5 


00690 TERM2 


MACRO 




01760 RT4 


RMB 


5 


00700 *ALL EVEN IMAGINARY TERMS 


01770 IT4 


RMB 


5 


00710 


LDB 


n 


01?80 R r 5 


RMB 


5 


00720 


JSR 


$BC7C 


01790 IT5 


RMB 


5 


00730 


LDX 


#\1 


01800 






00740 


JSR 


MUL 


01810 S'ART 


LDD 


#0 


00750 


LDX 


#\2 


01820 Li 


STD 


ACROSS 


00760 


JSR 


MUL 


01830 


JSR 


$B4F4 


00770 


LDX 


#\0 


01840 


LDX 


//XSCALE 


00780 


JSR 


1BC35 


01850 


JSR 


MUL 


00790 


ENDM 




01860 


LDX 


#XCORN 


00800 






01870 


JSR 


ADD 


00810 TERM3 


MACRO 




01880 


LDX 


#XX 


00820 *ALL ODD IMAGINARY TERMS 


01890 


JSR 


$BC35 XX=XC+H*XS 


00830 


LDX 


#\1 


01900 






00840 


JSR 


$BC14 


01910 


LDD 


#0 


00850 


LDX 


#\2 


01920 L2 


STD 


DOWN 


00860 


JSR 


MUL 


01930 


JSR 


$B4F4 


00870 


LDX 


#\0 


01940 


LDX 


#YSCALE 


80880 


JSR 


$BC35 


01950 


JSR 


MUL 


00890 


LDX 


#\3 


01960 


LDX 


#YCOKN 


00900 


JSR 


$BC14 


01970 


JSR 


ADD 


00910 


LUX 


#\4 


01980 


LDX 


#BB 


00920 


JSR 


MUL 


01990 


JSR 


$BC35 BB=YC+V*YS 


00930 


LDX 


#\B 


02000 


MOV E 


XX, A A AA=XX 


009^0 


JSR 


ADD 


02010 






00950 


LDX 


#\0 


02020 


LDB 


#50 ITERATION COUNT 


00960 


JSR 


$BC35 


02030 


STB 


TIMES 


00970 


JSR 


$BC35 


02040 L3 


ZEROIT 




00980 


ENDM 




02050 






00990 






02060 GETRT2 


TERM1 


RT2,AA,AA.BB,BB 


01000 TERM4 


MACRO 




02070 GETIT2 


TERM2 


IT2,AA,BB 


01010 *PART OF ALL TERMS 


02080 GETRT3 


TERM1 


RT3,AA,RT2,BB,IT2 


01020 


COND 


NARG=4 


02090 GETIT3 


TERM3 


IT3.AA,IT2,BB,RT2 


01030 


LDB 


#\1 


02100 GETRT4 


TERM1 


RT4.RT2,RT2,IT2.IT2 


010^0 


JSR 


$BC7C 


02110 GETIT4 


TERM2 


IT4.RT2.IT2 


01050 


LDX 


#\2 


02120 R1A 


TST 


C5 


01060 


JSR 


MUL 


02130 


BEO 


RIB SKIP IF NOT 5TH DEGREE 


01070 


,DX 


#\3 


02140 GETRT5 


TERM1 


RT5.RT2.RT3.IT2.IT3 


01080 


JSR 


MUL 


02150 GETIT5 


TERM3 


IT5,RT2,IT3,RT3.IT2 


01090 


ENDC 




02160 


TFRM4 


R1.4.C5.RT5 


01100 


COND 


NARG-3 


02170 RIB 


TST 


C4 


01110 


LDX 


#\1 


02180 


BEQ 


R1C 


01120 


JSR 


$BC14 


02190 


TERM4 


R1.3.C4.RT4 


01130 


LDX 


#\z 


02200 R1C 


TST 


C3 


01140 


JSR 


MUL 


02210 


BEQ 


RID 


01150 


ENDC 




02220 


TERM4 


R1.2.C3.RT3 


01160 


LDX 


#\0 


02230 RID 


LDX 


#C2 


01170 


JSR 


ADD 


02240 


JSR 


$BC14 


01180 


LDX 


#\0 


02250 


LDX 


#RT2 


01190 


JSR 


SBC35 


02260 


JSR 


MUL 


01200 


ENDM 




02270 


LDX 


#R1 


01210 






02280 


JSR 


ADD 


01220 EVEN 


MACRO 




02290 


LDX 


#C0 


01230 


LDB 


\0 


02300 


JSR 


SUB NEGATIVE SUBTRACTION 


01240 


b:t3 


#1 


02310 


COM 


$54 SO REVERSE THE SIGN 


01250 


BNE 


\1 


02320 


LDX 


#R1 


01260 


ENDM 




02330 


JSR 


$BC35 


01270 






02340 


LDA 


Rl EXPONENT OF Rl 


01280 PSET 


MACRO 




02350 


CMPA 


#184 


01290 


LDB 


\0+l 


02360 


LBHI 


L5 TOO LARGE TO CONTINUE 


01300 


STB 


XI 


02370 I1A 


TST 


C5 


01310 


LDB 


WID+1 


02380 


BEQ 


I1B 


01320 


SUBB 


\1+1 


02390 


TERM4 


I1.4.C5.IT5 


01330 


STB 


Yl 


02400 I1B 


TST 


C4 


01340 


JSR 


$9374 


02410 


BEQ 


I1C 


01350 


ENDM 




02420 


TERM4 


I1.3.C4.IT4 


01360 






02430 I1C 


TST 


C3 


01370 


ORG 


$6000 


02440 


BEQ 


I1D 


01380 NN 


FCB 


3 


02450 


TERM4 


I1.2.C3.IT3 


01390 Nl 


FCB 


2 


02460 I1D 


TERM4 


I2.C2.IT2 


01400 TIMFS 


RMR 


1 


02470 


LDA 


11 


01410 ACROSS 


RMB 


2 


02480 


CMPA 


#184 


01420 DOWN 


RMB 


2 


02490 


LBHI 


L5 


01430 MISC 


RMB 


2 


02500 R2A 


TST 


C5 


01440 ZERO 


TDB 





02510 


BEQ 


R2B 


01450 


FDB 





02520 


TERM4 


R2.5.C5.RT4 


01460 


FCB 





02530 R2B 


TST 


C4 


01470 XCORN 


RMB 


5 


02540 


BEQ 


R2C 


01480 XSCALE 


RMB 


5 


02550 


TERM4 


R2.4.C4.RT3 


01490 YCORN 


RMB 


5 


02560 R2C 


TST 


C3 


01500 YSCALE 


RMB 


5 


02570 


BEQ 


R2D 


01510 LEN 


RMB 


2 


02580 


TERM4 


R2.3.C3.RT2 


01520 win 


RMB 


2 


02590 R2D 


LDB 


#2 


01530 XX 


RMB 


5 


02600 


JSR 


$BC7C 


01540 AA 


RMB 


5 


02610 


LDX 


#C2 


01550 BB 


RMB 


5 


02620 


JSR 


MUL 



About 

Your 

Subscription 

Your copy of the rainbow is 
sent second class mail. You 
must notify us of a new address 
when you move. Notification 
should reach us no later than 
the 15th of the month prior to 
the month in which you change 
your address. Sorry, we cannot 
be responsible for sending 
another copy when you fail to 
notify us. 

Your mailing label also 
shows an account number and 
the subscription expiration 
date. Please indicate this ac- 
count number when renewing 
or corresponding with us. It 
will help us help you belter and 
faster. 

For Canadian and other non- 
U.S. subscribers, there may be 
a mailing address shown that is 
different from our editorial 
office address. Send your cor- 
respondence to our editorial of- 
fices at Falsoft, Inc., The Fal- 
soft Building, P.O. Box 385, 
Prospect, KY 40059. 
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02630 


LDX 


#AA 


03150 


LDX 


#DE 




02640 


JSR 


MUL 


03160 


JSR 


$BC14 




02650 


LDX 


#R2 


03170 


LDX 


#11 




02660 


JSR 


ADD 


03180 


JSR 


DIV 




02670 


LJX 


#C1 


03190 


LDX 


#1? 




02680 


JSR 


ADD 


03200 


JSR 


MUL 




02690 


LOX 


#R2 


03210 


LDX 


#RR 




02700 


JSR 


$BC35 


03220 


JSR 


ADD 




02710 


LDA 


R2 


03230 


LDX 


#RR 




02720 


CMPA 


#184 


03240 


JSR 


$BC35 RR-R1-R2+I1M2 




02730 


LBHI 


L5 


03250 








02740 I2A 


TST 


C5 


03260 GETII 


LDX 


#DE COMPUTE NEW IMAGINARY TERM 




02750 


BEQ 


I2B 


03270 


JSR 


$BC14 




02760 


TERM4 


I2.5.C5.IT4 


03280 


LDX 


#R2 




02770 I2B 


TST 


C4 


03290 


JSR 


DIV 




02780 


BEQ 


I2C 


03300 


LDX 


#11 




02790 


TERM4 


I2.4.C4.IT3 


03310 


JSR 


MUL 




02800 I2C 


TST 


C3 


03320 


LDX 


#11 




02810 


BEO 


I2D 


03330 


JSR 


$BC35 




02820 


TERM4 


I2.3.C3.IT2 


03340 


LDX 


#DE 




02830 I2D 


TERM4 


I2.2.C2.BB 


03350 


JSR 


$BC14 




02840 


LDA 


12 


03360 


LDX 


#R1 




02850 


CMPA 


#184 


03370 


JSR 


DIV 




02860 


LBHI 


L5 


03380 


LDX 


#12 




02870 






03390 


JSR 


MUL 




02880 GFTDF 


i nx 


#R2 COMPUTE THE DENOMINATOR 


03400 


LDX 


#11 




02890 


JSR 


$BC14 


03410 


JSR 


SUB 




02900 


LDX 


#R2 


03420 


1 DX 


#11 




02910 


JSR 


MUL 


03430 


^sr 


$BC35 II-R2*I1-R1*I2 




02920 


LDX 


#DE 


03440 








02930 


JSR 


$BC35 


03450 TESTA 


COMP 


AA.RR.L4 COMPARE REAL OLD AND NEW 




02940 


LDX 


#12 


03460 


COMP 


BB.1I.L4 COMPARE IMAGINARY OLD AND 


NEW 


02950 


JSR 


$BC14 


03470 


EVEN 


TIMES, L5 




02960 


LDX 


#12 


03480 


PSET 


ACROSS. DOWN 




02970 


JSR 


MUL 


03490 


BRA 


L5 




02980 


LDX 


#DE 


03500 L4 


MOVE 


RR.AA AA NOW = RR 




02990 


JSR 


ADD 


03510 


MOVE 


II. BB AND BB-II 




03000 


LDX 


#DE 


03520 


DEC 


TIMES 




03010 


JSR 


$BC35 DE=R2*R2+I2*I2 


03530 


LBNE 


L3 




03020 


LDA 


$4F DENOMINATOR'S EXPONENT 


03540 








03030 


LBCQ 


L5 BRANCH IF ZERO 


03550 L5 


LDD 


DOWN 




03040 * 


CMPA 


#152 OPTIONAL CHECK 


03560 


ADDD 


#1 




03050 * 


LBHS 


L5 TO SEE IF TOO LARGE 


03570 


CMPD 


WID 




03060 






03580 


LBLS 


L2 




03070 GETRR 


LDX 


#DE COMPUTE NEW REAL TERM 


03590 


LDD 


ACROSS 




03080 


JSR 


$BC14 


03600 


ADDD 


#1 




03090 


LDX 


#R1 


03610 


CMPD 


LEN 




03100 


JSR 


DIV 


03620 


LBLS 


LI 




03110 


LDX 


#R2 


03630 


RTS 






03120 


JSR 


MUL 


03640 








03130 


LDX 


#RR 


03650 


LND 


START 




03140 


JSR 


$BC35 








/?5v 



: :: : 




Thecriticswillberavingaboul this strategy game! Based on an original concept byauthorleffSleidel, 
Photon is an addictive time-muncher in the spirit of Lemmingi™ and Telro™. Match wits with 
Ludevide, the evil power droid, as you reason yourway through over 60 devious levels. The numerous 
original musicsco res, digiLzed speech and sound effects, and pleasinganimationand graphics enrich 
Phoion to make it an unparaLeled gaming experience. Soon to be released on a variety ofcomputer 
platforms, the CoCo Community is lucky enough to be given first glance at this fantastic game' Keq. 
128k CoCo-3, disk drive, and joystick 

$34.95 



50% OFF! 

SundogSysternsisMjHTngoktsclcctcdback-stocksoftware,andyoucarinowakeadvantageofthese 
bargains to completeyour Sundog collection! For a limited time, you can buysome of the best CoCo 
games at 50% off retail price!! Half off factory-new game software... you'll never find a better deal! 




Paladin's Legacy 


rcg. $24.95 


now $ 12.45! 


HaUoftheKingl,2,or J 


reg. $29.95 


now $14.95! 


Kung-Fu Dude 


reg. $24.95 


now $12.45! 


White Hre of Eternity 


reg. $19.95 


now $9.95! 


Dragon Blade 


reg. $19.95 


now $9.95! 


Champion 


reg. $19.95 


now $9.95! 


„,,„,..,, 





PO Box 766 Manassas VA 221 1 1 
(703) 330-8989 

Visa, MC, check. MO, and COD (US only, please) accepted. AH foreign 
ordersinust be sentin US currency MO's. Include $2. SO for shippingin USA 
& Canada. S5 foreign. S3 extra for COD orders. PA residents add 6%ux 



■St??? 



That's right... are you at a loss 
when it comes to what's out there 
in the CoCo Market? Do you feel 
like you are disconnected from the 
new 68xxx machines? If you are 
interested in the latest, new prod- 
ucts for the CoCo and the 'newer 
breed' of machines, write to us at 
the address below and we'll put 
you on our mailing list so that you 
can get the scoop on all the great 
new products coming out for your 
favorite machines. 



JWT Enterprises 

5755 Lockwood Blvd. 
Youngstown, OH 44512 
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Feature Program 




ave you ever been doing your 
-A- -A. math homework and found 
yourself thinking, "If only I could sec a 
graph of that equation . . .?" So you pull out 
some graph paper and get to work — whew ! 
Graphlt is a CoCo 3 program that takes care 
of the tedious part for you . Graphlt can plot 
virtually any function in terms of x and y in 
which y has been "solved for." (Such a 
function is in the form y=f(x).) 

Enter the program as listed, then save it 
to tape or disk before running it. As written, 
Graphlt is designed for use with an RGB 
monitor. The display colors may be differ- 
ent when the program is used with a color 
composite monitor. When you enter RUN, 
you'll see the title screen and be prompted 
to choose whether you want the graph drawn 
using vectors or points only. If you press P, 
integral solutions to the function are plot- 
ted. Selecting the Vector option results in a 
graph using the straightest possible lines 
between consecutive solutions, giving an 
estimation of how the non-integral solu- 
tions would appear. This may distort the 
resulting graph in some cases but can be 
very useful at times. 

At the second prompt you are asked 
whether or not you want a background grid. 
If you press Y, a 10-by- 10-pixel grid is 
drawn in pale green. Generally such a back- 
ground is helpful as it puts the graph in a 
frame of reference. In conjunction with the 
Points Only option, however, it may be a 
source of eyestrain. In either case, the x and 
>• axes are drawn in black at the center of the 



screen. The graph of the function appears in 
red. 

You may find it helpful to graph the 
funtion using both vectors and points, and 
with and without the grid. Press ENTER 
after the graph is drawn to return to the title 
screen, at which point you can graph the 
function again using different selections. 

The function to be graphed is stored in 
Line 650. You can modify this line to graph 
nearly any equation. The allowable range (x 
values) is - 1 60 through 1 60, and the domain 
(y values) is -96 through 96. Each pixel 
represents one integral increment on the 
coordinate plane. 

I've included several functions you might 
wantto useforexperimenting with Graphlt 
(see Figure 1 ). When entering an equation, 
always remember to use an asterisk (*) for 
multiplication, a slash (/) for division and 
an up arrow to raise x to a power. Experi- 
ment with algebraic equations such as lines 
(Y-M*X+B), parabolas (Y-A*X"2+B*X+C) and 
trigonometric functions (S I N, COS and TAN). 



Rick St. John began writing programs 
for the Color Computer when he was in the 
third grade. He is currently a junior at 
Stanford University and is majoring in 
political science. Rick can be contacted at 
2131 Glacier Lane, Santa Maria, CA 93455. 
Please include an SASE when requesting a 
reply. 
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The Listing: GRAPH IT 

10 'GRAPHIT 

20 'BY RICK ST. JOHN 

30 'COPYRIGHT (C) 1992 

40 'BY FALSOFT. INC. 

50 'RAINBOW MAGAZINE 

100 RGB:WIDTH40:CLS5:POKE65497.0 

110 PALETTE9,8:PALETTE1,58 

120 ATTR1.4 

130 L0CATE7,2:PRINT"St. John Sof 

tware Presents ..." 

140 L0CATE16. 5: PRINT" -GRAPHIT-" 

150 L0CATE12.8:PRINT"Copyright ( 

C) 1988" 

160 LOCATE13,10:PRINT"By Rick St 

. John" 

170 ATTR7.4.B 

180 L0CATE13,17:PRINT"V - Vector 

190 L0CATE13,19:PRINT"P - Points 
only"; 
200 ATTR3.4 
210 PRINT 
220 ATTR1.4 

230 F$-INKEY$:IF F$-"V" OR F$="v 
" THEN V-l ELSE IF F$="P" OR F$= 
"p" THEN V-0 ELSE 230 
240 ATTR7.4.B 

250 L0CATE13.17:PRINT" Grid? (y 
/n)" 

260 ATTR3.4 
270 PRINT:PRINT 
280 ATTR1.4 

290 F$=INKEY$:IF F$-"N" OR F$="n 
" THEN HCOLOR 1.4:HSCREEN 2:CLS: 
GOTO 390 ELSE IF F$<>"Y" AND F$< 
>"y" THEN 290 
300 HCOLOR 1,4 
310 HSCREEN 2 
320 CLS 

330 FOR X-5 TO 315 STEP 5 
340 HLINE(X.0)-(X,191).PSET 
350 NEXT X 

360 FOR Y-6 TO 186 STEP 5 
370 HLINE(0.Y)-(320.Y).PSET 
380 NEXT 
390 HCOLOR 8.4 
400 HLINE(160.0)-(160.191).PSET 



410 HLINE(0.96) 
420 HCOLOR 3.4 
430 FOR X=-160 
440 GOSUB 650 
450 IF Y-999 TH 
M"+STR$(160+X)+ 
)) 

460 DRAW D$:G-X 
470 NEXT X 
480 FOR X-G TO 
490 GOSUB 650 
500 IF Y=999 TH 
510 IF V=l THEN 
YJ.PSET ELSE HS 
520 NEXT X 
530 FOR X-0 TO 
540 GOSUB 650 
550 IF Y-999 TH 
560 IF V-l THEN 
YJ.PSET ELSE HS 
570 NEXT X 
580 POKE 65496. 
590 F$-INKEY$:I 

RUN ELSE 590 
600 '************************** 
610 '*REPLACE LINE 650 WITH AN* 
620 ^EQUATION IN TERMS OF Y&X* 
630 '*EX: 650 Y-.025*X A 2+X-80 * 
640 *************************** 

650 Y-90*SIN(300*X) 

660 Y=-1*Y 

670 IF Y+96<0 OR X+160<0 OR Y+96 

>191 OR X+160>320 THEN Y-999 

680 RETURN 



-(320,96).PSET 
TO 



EN 470 ELSE D$-"B 
"."+STR$(INT(96+Y 



EN 520 

HLINE-U60+X.96+ 
ETU60+X.96+Y.7) 



EN 570 

HLINE-U60+X.96+ 
ETU60+X.96+Y.7) 



FF$-CHR$(13) THEN 





650 Y=X 

650 Y-X A 2 

650 Y=.5*X"3+X A 2+2 A X-50 

650 Y=SIN(X) 

650 Y-40*SIN(XJ 

Figure 1: Alternate Functions 




Merging Shell 

Bl would like to know howl can modify 
the modules merged with shell. / 
would like to replace mdi r and procs 
with di rm and proc. / have tried to merge 
shell and those two modules into another 
file, after renaming it to shel 1 and deleting 
the original shel 1 fde. But when I reboot 
OS-9, mdi r and procs are still there. 

Alain Pilon (AP1LON) 

Brossard, Quebec 

Canada 

H First you need access to the save 
|5| command, which is included with the 
191 OS-9 Development System and also 
with Multi-Vue. To retrieve save from the 
Multi-Vue package, insert Disk 2 and load 
prapts from the CMOS directory, then insert 



your boot disk and type save /dd/emds/ 
save; attr /dd/emds/save pe pw pr e 
w r. Alternatively, you can download a 
version of s a ve (written by Kevin Darling) 
from either Delphi or CompuServe. If none 
of these options suit your fancy, enter the 
bsave.b09 program shown in Listing 1. 
Now boot OS-9, turn on the printer, and 
enter 

ident -s /dd/cmds/shell >/p 

This gives you a list of all the modules 
(programs) currently merged with shell. 
We suggest you create a temporary work- 
ing directory to prevent the possibility of 
overwriting any files, so type: 

makdir /dd/temp 
chd /dd/temp 

At this point you could save each module to 
a disk one at a time and then merge all the 
modules, although it's easier (and saves 
keystrokes) to let s a v e do most of the grunt 
work for you. The general technique is to 



save the commands in small groups on disk, 
and then to merge all of the temporary files 
together. In your case you want to replace 
mdir and procs with dirm and proc, so 
begin by loading di rm and proc: 

load dirm 
load proc 

Now save the first group on disk by typing: 

save shell. 1 shell attr els ... 

where the ellipsis (...) represents any other 
commands in your list. Note that shell 
must be the first module in the file, so it is 
included first in the list. You probably won't 
be able to fit all the modules on one com- 
mand line, which is why we saved the first 
group to the file named shell . 1. You can 
then save the second group of modules by 
typing: 

save shel 1.2 merge proc rename ... 

If you still aren't able to get all modules in 



two groups, continue using a third, fourth or 
however many it takes. Once all of the 
modules are saved, merge the resultant files 
and set the attributes: 

merge shell. 1 shell. 2 >shell 
attr shell oe pw pr e w r 

Now you can copy the new shell file to your 
CMDS directory and reboot to make the 
changes active. Before doing this, how- 
ever, we suggest first running ident to 
make sure the file is clean (all good CRCs 
and module headers). If you get any errors 
from i dent, check the modules in memory 
to make sure they are clean, then start from 
scratch. Just to be extra safe, double check 
the attributes of the file after you copy it to 
the CMDS directory. 

Note that if you use bsave.t>09, you 
must save each module individually instead 
of in groups. For example, the commands 
used with bsave would be as follows: 

bsave shell 
bsave attr 
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bsave els 
bsave crop 

merge shell attr els emp >shell.l 

rename shell shel 1 .mod 
merge shell. 1 shell. Z >shell 
rename /dd/cmds/shell shell. bak 
copy shell /dd/cmds/shell 

Since most of the modules are also avail- 
able as separate files on disk, you may be 
able to merge them from disk rather than 
save them all first. 

We send a big thanks to Randy Wilson 
(RANDYKWILSON) for providing bsave. 
When we asked on Delphi for ways OS-9 
users could get a save command without 
having to buy the Development System, 
Randy mentioned the Multi-Vue trick, then 
quickly wrote bsave and offered it to us. 
While the program doesn't support saving 
of multiple modules in one file, it is ex- 
tremely well-written and worthy of study 
by BASIC09 programmers. This, folks, is 
what the CoCo Community is all about. 

Watch out for the BLOB 

/ am having trouble formatting disks 
with OS-9 Level 11 — / intermittently 
encounter Read errors (Error 244) 
during the format process. Some days I can 
format three or four disks with no problem, 
then the next disk bombs. On other days, my 
first attempt fails. To make matters worse, 
when I finally get a disk formatted and try to 
copy a file to it from my hard drive, the 
system gives me a write-verification error. 
Of course this, too, happens intermittently. 
Please help me before I go crazy. 

Vic Roberts 
Raleigh, North Carolina 

We recently encountered similar dif- 
ficulties with one of our CoCo 3 sys- 
tems here, and we traced the problem 
to the infamous BLOB (boot-list order bug). 
According to Chris Burke of Burke & Burke, 
there are (at least) two theories about BLOB 
problems, the most prevalent of which is 
that certain device-driver and -descriptor 
modules need to be grouped and should 
reside just after an even 8K boundary after 
loading from the 0S9Boot file. 

Start OS-9 with the boot disk you ordi- 
narily use. After you get to the OS9: prompt, 
enter mdlr e to get a complete module 
directory. We suspect you'll find the disk 
modules (RBF, CC3Di sk, dO, dl, your hard- 
disk driver, hO and dd) spread apart and/or 
that they cross an 8K boundary ($2000, 
$4000, $6000, etc.). 

To correct the problem, try using a pro- 
gram like EZGen (from Burke & Burke) or 
KwikGen (from Gale Force Enterprises) to 
alter the order of the modules in ihe 0S9Boot 
file. Because we had just received the pro- 
gram for review and wanted to give it a run 
for its money, we used KwikGen (reviewed 
August 1992, Page 6). We first grouped the 
modules in the following order: 

RBF 

CC30isk 

dO 

dl 

BBFHdlsk 

hO 

dd 

Once the modules were grouped, we 
used KwikGen' s Address function and de- 
termined how to rearrange other modules 
so that the first disk module (RBF) would 
load into memory just after an even 8K 
boundary. Finally, we wrote the modified 
0S9Boot file to disk. We have not had a 
problem since. 



To use EZGen, you would follow a 
similar procedure, though to determine 
where the modules are loading, you'll have 
to reboot with the modified disk and check 
the addresses with nidi r e again. You may 
have to repeat this process several times 
before you get RBF properly positioned. 

One final word of advice: Before you go 
about patching, boot the system with a copy 
of the original system disk from Tandy. 
Otherwise you take the chance of repeat- 
edly encountering the same frustrating Write 
errors you are trying to eliminate. 

Obtaining 
Telecommunications Packages 

I'm working on trying to use OS-9 and 
also learning BASIC09. I have been 
subscribing to THE RAINBOW for a 
number of years, and I keep reading about 
all the information a person can get through 
the OS-9 S1G on Delphi. The question I 
have is how can a person acquire a good 
telecommunications program without hav- 
ing to spend a good deal of money? There 
are many good programs for Disk BASIC, 
but I haven't seen any in the same price 
range for OS-9. I'm talking about share- 
ware programs. Please let me know, if you 
can, where I can order a program of this 
sort. Thank you very much for the OS-9 
Hotline. 

Eddie G. Wilson 
Galax, Virginia 

If you are willing to pay for quality 
software, you can purchase KBCom 
from CoCo PRO! (313-482-8128). 
KBCom is one of the best terminal pro- 
gramsever written for OS-9, and its VT100 
emulation is exceptional (even better than 
most terminal programs available for MS- 
DOS-based systems). If you don't want to 
paySflppMsbfort^aftwaJ^ Supercomm 
is included on the November 1991 rain- 
bow ON DISK, which is available in back- 
issue form. /^\ 




In the July 1992 installment of "OS-9 
Hotline" (Page 17), we published a mod - 
patch script designed to set up 40-track 
drives under OS-9 Level II. Unfortunately 
we inadvertently swapped the old-byte 
and new-byte parameters for the step-rate 
change in this script. The three lines that 
read 

c 14 03 00 

should be changed to 

c 14 00 03 

We're sorry forfhe inconvenience, and 
we hope our mistake didn't cause too 
much confusion. 

We should also note that the offset 
($ 14) for the step-rate value is the same for 
all floppy-disk descriptors. You should be 
able to use this line to alter the step rate for 
any drive capable of stepping at 6ms, 
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The l.iuinr- bsave 

PROCEDURE bsave 

0000 (* Written by Randy K. Wilson 

0010 (• 6/19/92 

0028 (• Released to public domain 6/19/92 



004 F 

008D 

00CD 

0000 

010E 

012E 

012F 

013B 

0142 

0167 

0170 

017F 

018E 

019E 

01A5 

01A6 

01DE 

01FC 

0202 

020E 

020F 

0242 

0277 

0270 

0289 

028A 

02C2 

02EA 

030F 50 

0315 

0349 

0357 

0366 

03A2 

0309 

03EB 

03 FA 

0416 

041A 

0450 
0452 
0454 
0456 
0457 
0470 
0483 
0480 
048E 
04CA 
0504 
0542 
0553 
0579 
057C 
058B 
0597 
0589 
05C8 
05EF 
0601 
0624 
0636 
0638 
063E 



0681 
069B 
0603 
0605 

B6D6 iiie 
06E1 
06E5 
06E6 300 



(* Note that this procedure can only be used with nodules less 
(* than 32K in size: 40K if RunB and SysCall are merged together 



(* only be us 



ote that due to the params needed, this procedure can 



ck'i 



form 



PARAM f1le_name:STRING[64l 

PARAM mod_name:STRING 

TYPE stack-cc.a.b.dp:BYTE: x.y.u:! 

DIM regs:stack 

DIM l_Write:BYTE \I_Hrite-J8A 

DIM F_L1nk:BYTE \F_L1nk-S00 

DIM file_temp.mod_temp:STRING[64] 

DIM path:BYTE 



(* Test for first param, and add a carriage return to it 
(* If not there, go show usage 
ON ERROR GOTO 100 

file_temp-f1le_name+CHR»<l3> 

(• Test for second param. and add a carriage return 
I* If not given, assume file and nodule are same nane 
OH ERROR GOTO 200 
mod_temp-mod_name+CHR*( 13 ) 

(" Now ask the system to find the module and map 1t Into 

(* our space so that we can work with it 

C See F$L1nk. 0S9 Tech Manual. p8-23 

ON ERROR 

regs.a-0 \(* for type/language means "don't care" 

regs . x-ADDR ( mod_temp ) 

RUN syscall(F_Link.regs> 

(* Since Bas1c09 will not know about an error in SysCall. we 

(* nust manually check the Carry bit of the CC register 

IF tAND(regs.cc.l)-l THEN 

IF regs.b-221 THEN 
PRINT "Module ": mod name: " not found" 

ELSE 
PRINT "Error #": regs.b: " while attempting to link to " 
; mod_name 

ENDIF 

END 
ENDIF 



i* Found the nodule, no 
ON ERROR GOTO 300 
CREATE #path.file_temp 



open the file 



ve the module, and a fl 
nodule is not in a Bas 
Just tell basic to write it for 



(* do it for us. 

(* See IJWrite. 0S9 Tech Manual. p8-64 

ON ERROR 

regs.x-regs.u 

regs.a-path 

regs .y-PEEK< regs . x+2 )'256+PEEK< regs .x+3 ) 

RUN syscalldjrite.regsl 

(* And. again, manually check for error 

IF LAND(regs.cc.l)-l THEN 

PRINT "Error while writing to ": file_nane: 

PRINT "Error f; regs.b 
EN0IF 

CLOSE (path 
END 



to put It In. but how? 
variable, we can not 
. So we ask the system to 



REM print 
PRIKT "Usa 
PRIhT " 
PRInT " 
END 



ge/help 
bsave <file name> <module nane>" 

bsave <module name> uses same name for file" 



not create file ": file_temp: 
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Energy is everything, your home world depends on it. However, 
someone or something is slowly siphoning it away. As your world's 
champion, you must climb into the experimental Power Tank to 
challenge this nemesis and his minions. Your key lies with the ability 
to teleport solid mass Use this to manipulate and explore the endless 
stronghold ot the enemy, and to exploit the free-floating DIIPFS 
(Dense Units of Photon Energy) to destroy the menacing Plasma 
Droids Be cautious, though; those DUPES can be deadly, too! 
Photon, a fantastic new arcade game tor your Coco3, contains spec- 
tacular 320x200 resolution. 16 color graphics, ultra-smooth 60 Hz 
animation, and loads of real-time music and sound effects. It will 
send your mind racing over endless possibilities, requiring quick 
decisions and reactions. Quite simply. Pholon is incredibly addictive: 
it will deliver hours of excitement. Will you become your world's 
greatest hero, or just another 
energy slave? Req. 128K CoCo 3 
and disk drive. 



GratExpress 2.0 is a complete graphics and music programming en- 
viionmenl. From Mie beginner lo the accon 
can use GrafExpress to create lightning last arcade games 
applications and utilities, and windowing mutimedia demonstra- 
tions! The GrafExpress package includes two incredible systems. 
GrafExpress 16 works on all monitor types and offers sup. 
graphic resolu ; ions(lrom 128x192 lo 320x225) GrafExpress 256 ot- 
ters 6 resoutions(lrom 128x192 to 160x225 on a composite monitor) 
in an astounding 256 colors' Ever see a CoCo do tnat before? Both 
systems include standard graphics commands (CIRCLE, FILL, etc.) 
that blow away the competition. For example, the BOX command 
peaks out at over 2 MegaPixels/second; that's 300 limes taster than 
BASIC 255 separate sprites of up to 100x100 pixels each are sup- 
ported with window clipping and high res pixel level collision check- 
ing. The 8-octave/4-voice music synthesizer has independent 
envelope, waveform, and volume controls, a 7 + KHz sampling rate, 
and much more. Other lealures include text/graphics mixing, dif- 
ferent tont sizes, fast window copying and scrolling, picture 
save/load, easy implementation from both BASIC and assembly 
language, multiple screen animation, and support for 128K/512K, 
double speed, and the high-res joystick interface The package also 
contains support programs that are worth Ihe purchase price of 
GrafExpress alone! These include an introductory demo, a picture 
editor, a waveform edilor, and an art program that supports 256 col- 
ors! GrafExpress also comes with a 50 page manual that fully ex- 
plains all of lib incrediule features. .'< you do any graphics program- 
ming or simply want to see what 
your little CoCo Is capable ol, 
GrafExpress is a musl! Req. 128K 
CoCo 3 and disk drive. 



The world is In unrest Power-hungry villains and evil warlords are 
readying their forces I falls to you to lead your people against these 
armies, and only your best strategic plans can save the day. Fight 
the good tight in any era or locale. Play a simple game ol capture Ihe 
flag armed with water balloons, or climb into the cockpit of a 100 toot 
high armored warrier. Explore the deepest dungeons, defend your 
galaxy, or create your own scenarios with this incredible war game 
construction sef/simulator. Your imagination is your only limit You 
will deploy your forces with total control over hostile terrain while you 
scroll a graphic bird's-eye window over an immense world War 
Monger has terrific 320x200 resolution. 16 color graphics and in- 
cludes a tile editor to create or edit your own Play against the com- 
puter, battle with another player, or simply watch the computer plot 
againsi itself. The enemy is everywhere. Are you ready to take on the 
challenge as the War Monger? Req. ^^V^PVfl 
128K CoCo 3 and disk drive. M' >X# 1 > 1 
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